If you have a problem that can be solved by a computer— we have a systems solution. 

* Two central processors with maximum RAM capacities of 56K and 384 K bytes 

* Three types of disk drives with capacities of 175K, 1.2Mand 16M bytes 

* Two dot matrix printers with 80 and 132 line capacity 

A Selectric typewriter interface and a daisy wheel printer 

Match these to your exact need, add one or more of our intelligent terminals and put together 
a system from one source with guaranteed compatibility in both software and hardware. 

Southwest Technical Products systems give you unmatched power, speed and versatility. They 
are packaged in custom designed woodgrain finished cabinets. Factory service and support on 
the entire system and local service is available in many cities. 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 3440241 
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be indicated as such. All letters must be signed. We are 
interested in receiving letters that will benefit or alert our 
readers. Praise as well as gripes is always good subject 
matter. Your name may be withheld upon request. If you 
have had a go-id experience with a 6800 vendor please 
put it in a letter. If the experience was bad put that in a 
letter also. Remember, if you tell us who they are then it is 
only fair that your name not' be withheld. This means that 
all letters published, of a critical nature, cannot have a 
name withheld. We will attempt to publish verbatim' 
letters that are composed using good taste.' We reserve 
the right to define (for '68' Micro) what constitutes good 
taste.' 

(Articles and items submitted for publication) Please, 
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in advance. 

Commercial and/or Business adversers please write 
or phone for current rate sheet and publication lag time. 
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WANT TO BE KING OF THE HILL? 

TREAT YOURSELF ROYALLY WITH GIMIX UNIQUE AND INCOMPARABLE 
BOARDS AND SYSTEMS... DIP-switch Versatility for use with 
both SS50 (6800) and SS50C (6809) Systems (SWTP. etc.) 

32K STATIC RAM BOARDS 

Designed for use with: * Existing SS50 Systems 

• SS50C Extended Address Systems 





• Assembled 




• Burned In 




• Tested 




16K .... 


5328.12 


24K . . . . 


$438.14 


32K . . . 


$548.15 


16K and 24K Versions are 
socketed lor 32K and re- 
quire only additional 
21 14' s for expansion. 




FEATURES: • Write protect either ol Iwo I6K sections 

• Decoding lor 4 Extended Address Lines (allows • low power consumption — uses 21141 low 
memory decoding up to 1 megabyte) power RAMS — (2 amps typical tor 32K) 

• DIP-swIiCrt to set extended addressing or disable It • Fully Socketed 

• 4 separate 8K blocks, addressable to any 8K • Gold Bus Connectors 
boundary by OlP-swIlch . Guarameed 2MH2 operalion 

• Each 8K block may be individually disabled 



FACTORY PRIME 
STATIC RAMS 



2114L 450 ns $5.90 200ns $6 90 

4044 450 ns $5.90 250 ns . . . . $6.90 

MO %b DO HANDLING OH ORDERS UNDER 1200 0X3 



THE UNIQUE GIMIX 
80 x 24 VIDEO BOARD 

* Upper and Lower Case with Des enders 

* Contiguous 8x 1 Character Cells 

* Hardware Scrolling 

* X-Y Addressable Hardware Cursor 

It is the ONLY Video Board that 
gives you Software Control of: 

• A programmable RAM Character Generator plus 
2 EPROM Character Generators (128 char, ea I 

• Selecting 256 Dlsplayable Characters from 384 
available. 

• Normal or Inverse video, full or reduced Intensity, 
or combinations of these by twin ASCII Code and 
Bit 8. 

• GHOSTabtllty — multiple boards at the same ad- 
dress 

Fully decoded, occupies only 2K ot address space 
Fully socketed— Gokj bus cormec tens. 
Assembled. BumerJ-ln. arid Tested at 2MH&. 

Oeluxe Version $458.76 

Without RAM Character Generator $398.74 
Other Video Boards from $198.71 



1.0. BOARDS 

NEW!! 50 PiN 8 PORT RS-232 
SERIAL BOARD 

* With SS50C extended addressing (can be disabled) 

* DIP-switch selectable Baud Rales lor each Porl 

* Occupies 16 bytes at address space 

* Dip switch addressable to any 16 byte boundary 

* Any 2 ot IR.0. NMI or FlftQ can be userj 

* RS-232 handshaking for each port (CrS, RTS. DCD) 

$288.40 

* With optional on Board Baud Rate Generator 
$318.46 

ALSO AVAILABLE 

50 Pin B Port Parallel $198.45 

30 Pin 2 Port Parallel S 88.42 

30 Pin I Port Serial (RS 232 or 20MA. current loop) 

$ 88.41 

Cable Sets for above ea S 18.95 



THE 

CLASSY 

CHASSIS 




EXPORT NOTES: 

For 50Hz 230V C.V. POWER SUPPLY Add $30.00 

80 x 24 VIOEO BOARDS — Specify Format (No Added Charge) 
On Orders under $250.00 tor a Single Board, or Chips, please Add 
$30.00 Handling and we will ship Air Malt Prepaid. 
On all other orders we will ship via Emeiy Air Frleght Collect, and we will 
charge no handling. All orders must be prepaid In U.S. Funds. Please 
note that foreign checks have been taking about eight weeks lor collec- 
tion, so we would advise wiring money or checks drawn on a bank ac- 
count In the U.S. Our bank Is the Continental Illinois National Bank of 
Chicago, account *73 32033. Visa or Master Charge also accepted. 
OIMIX* and GHOST* are Registered Trademarks of GlMlX INC. 



• Ferro- resonant Power Supply 

• Heavyweight Aluminum Cabinet wllh Ian 
and provisions lor Iwo S" disk drives. 

- 5800/6609 Mother Board, fllteen SO pin and 8 
DIP-switch addressable 30 pin slots - Gold 
Ptaled Pins. Fully decoded 

• Baud Rale Generator an Mother Board . . $828.19 

32K SYSTEM incomparable Features at a Comparable Price' $1,594.59 

Includes- Chassis. 6800 CPU. 32K RAM Board. Choice ol 1/0 Card 

16K Version ol above $1,374.49 

Phone, write, or see your dealer for details and 
prices on our broad range of Boards and Systems 
for the SS50/SS50C bus and our AC Power 
Control Products for all computers. 



<& 



Gimix 



inc. 



The Company that delivers 

Quality Electronic products since 1975. 

1137 WEST 37th PLACE, CHICAGO, IL 60609 
(312)927-5510 • TWX 910-221-4055 
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SEE GHOST AD PAGES 39 & 44 



M6800 SPL/M COMPILER 



SPL/M is a block-structured language which features arbitrary 
length identifiers and structured programming contructs. It is 
suitable for systems programming on small computers, since the 
compiler requires only 20K of memory and one disk unit to run. 



The language can be compiled in only one 
the source code has to be read only once. 



pass, which means that 



Unlike most high-level language translators available for micro 
processors, SPL/M is a true compiler: it generates absolute 6800 
object code which requires no run-time package. Due to extensive 
i n t ra-st a t emen t optimization, the generated code is almost as 
efficient os the equivalent assembly language. 

The compiler has a number of compi 1 e- t i me options, including a 
printout that contains the interlisted object code. Syntactical 
error messages use position indicators to indicate exactly where 
an error occurs . 



SPL/M is currently available 
tible systems) running under 
system. Tne system is suppli 
a compreher.si ve User's Manual 



for the SWTPc 6800 (or other compa- 
tne FLEX 2.0 or the SSB DOS operating 
ed on one 5i" diskette together with 



Operators 



Statement Types 

BECLfiKE 

Assignment (e.g. COUNT - 1;) 

IF-THEN (with optional ELSE) 

DO-WHILE (loop control, plus BREAK) 

Grouping (00; statement list END;) 

PROCEDURE definition 

GENERATE nachine code 

Declarations 

Define variable types, either BYTE (8 bits), 

or ADDRESS ( 16 bits) 
Define arrays (one dimension only), either 

variable or constant (DATA) 
Define coapile tiae nuaeric substitutions 

(LIIERALLY) 



Arithaetic: 

♦ - * / HOD (MODULO) 
Logical : 

NOT AND OR XOfl 
Relational: 

■ « (not equal) 

Procedures 

Defined within a PROCEOURt-tNU pair and 
called via a CALL statement 

Functions 

Type conversion (LOW, HIGH, DOUBLE) 
Direct aeiory access (MEN, NEMA) 

Miscellaneous 

Identifiers aay be up to 31 characters long 
Deciaal, hexadeciaal, and string constants 
Integer arithaetic only 
Origins for prograa and/or oata 



PROGRAMMA 
International Inc. 
3400 Wllshlre Blvd. 
Los Angolas, CA 90010 

(213) 384-0579 384-1116 384-1117 



$49.95 

plus postage 
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SMOKE SIGNAL BROADCASTING 



Presents 



3 Powerful New SS-50/SS-50C Boards 



DCB-4 
Disk Master 

Double Density Controller Board 

and DOS68D Double Density DOS 

$449.00 



The new DCB-4 is a truly state-of-the-art develop- 
ment which allows up to 366K bytes to be stored 
on a single 5%" disk and has these outstanding 
features: 

• Up to four 5%"and four 8" drives can be 
handled in the same system with a user de- 
finable logical unit table. (DOS6BD will be 
compatible with future hard disk systems). 

• Under software control, the user can select 
the following for any drive: 

ft Single sided or double sided operation. 

ft Single density or double density data. 

ft 5'/«"orB". 

ft Stepping Rate. 

ft 40 track or 35 track density on double 
sided 5%" drives. 

ft User can select the system boot configu- 
ration. 

• Occupies only 16 bytes of memory space 
(F760-F76F standard). User selectable to any 
16 byte address space. 

• Can read and write a single sector by itself. 
Onboard buffer memory allows full inter- 
rupt capability in interrupt driven systems. 
Once data transfer has been initiated, no 
more processor time is required. 

■ Contains extended decoding circuitry for ex- 
tended addressing per SS— 50C bus which 
can be enabled by an option jumper. 

• SSB provides a means for copying software 
written by older versions of DOS66 to be 
read by DOS66D. All new media formatted 
by DOS66D can be read by all older versions 
of DOS68. DOS68 is SSB's 6800 disk opera- 
ting system. 

• Track of side is recorded in single den- 
sity per IBM standard. 

■ Phase-locked-loop assures highest data inte- 
grity attainable. 

All of these features are available for immediate 
delivery on one standard 5V x 9" 50 pin SS— 50/ 
SS-50C card for only $449.00. The price includes 
DOS68D version 5.1, MONITOR object code on 
diskette, and a manual with the source listing. 

smoke mm 



SCB-69 
Super Computer Board 

6809CPU Board 
$299.00 



The most versatile 6809 CPU Board on 
the market is now available from 
Smoke Signal Broadcasting and has the 
following features: 

• Standard 2 MHz operation. 
(Shipping 1.5 MHz until August 80) 

• 20 bit address generation for up 
to 1 Mbyte of memory. Uses an 
improved address translation RAM 
which is compatible with present 
extended addressing schemes yet 
requires much less overhead when 
used in multi-user systems. 

■ All onboard devices can be switch 
selected to occupy any or all ex- 
tended pages. Any onboard device 
may be disabled and its memory 
space is then available for exter- 
nal memory. 

• Standard real— time clock (time— 
of— day, day— of— week, day— of— 
month) with battery back up ca- 
pable of generating programmable 
interrupts. 

• Up to 20K of EPROM can be in- 
stalled on the CPU Board. 

• Standard IK of RAM on board. 

• Includes improved 6609 Monitor 
(and source listing). 

• Contains an FPLA for decoding 
EPROM address and optional de- 
vices. Switches are used to select 
2K/4K EPROM and Fast/Slow I/O. 

■ Contains provision for optional 
9511/9512 floating point pro- 
cessor. 

• NM Mine is user selectable to work 
with either SS-50 or SS-50C 
busses. 

Price for the new SCB— 69 is only 
S299.00 for an assembled, burned-in 
fully tested board. 




M-32-X 
32K 

Memory Board 
$539.00 $439.00 



The first and only 32K 
Static Ram Board on stan- 
dard size (5V x 9") 
SS-50/SS-50C Bus Cir- 
cuit Card is made by 
Smoke Signal. 

• Switch selectable to 
any 4K boundary. 

■ Any 4K block may be 
switch enabled or dis- 
abled. 

• Fully compatible with 
SS-50C extended ad- 
dressing (allows mem- 
ory decoding up to 
1 Mbyte). 

■ Extended addressing 
capability may be 
switched off for com- 
patibility with SS-50 
systems. 

• Gold Bus Connectors 
for high reliability. 

• Guaranteed 2MHz op- 
eration (tested at' 2.2 
MHz). 

• Low power consump- 
tion — 8 volts at 
2.4 amps typical. 



M-32-X 
Board is 
$539.00. 



32K Memory 
priced at 



M-24-X 24K Memory 
Board expandable to 32K, 
is $439.00. 

AndourM-16-X 16K 
board is back to the old 
price of $299.00. 



BBOABOSTIHC 



31336 Via Colinas, Westlake Village, CA 91361, (213) 889-9340 






In the world of 6800 Microcomputing 

there is only one Universal Mini-Disk System 



the PERCOM LFD-400 ■ 
with SOFTRAN '■ 



Made possible by SOFTRAN™, an inno- 
vative $24.95 translator program, the 
reliable Percom LFD-400™ has just 
been upgraded to the first universal 
mini-disk storage system. 

Suddenly the two worlds of 6800 
minidiskette software become one. 
Because the LFD-400™ with SOF- 
TRAN™ can read either soft-sectored 
or hard-sectored disks. 

And owning an LFD-400/SOFTRAN 
system means you can run minidiskette 
programs from the enormous combined 
selection of all of the principal 6800 soft- 
ware houses — TSC, Computerware, the 
Software Works, Hemenway Associates and of 
course Percom, 

Available in versions for mini FLEX*, FLEX 2.0' and 
Smoke Signal Broadcasting Company's DOS, 
SOFTRAN™ copies soft-sectored minidisk- 
ettes track-for-track onto hard-sectored mini- 
diskettes. If the source disk includes a FLEX* or 
'Smoke' DOS. SOFTRAN™ is used to modify the 
operating system to function with the Percom 
LFD-400™. 

SOFTRAN™ is supplied on a minidiskette along 
with utilities for only $24.95. 
A users manual is included. 
You must indicate whether 
SOFTRAN™ is to be used 
for mini FLEX', FLEX 2.0' 
or Smoke's DOS 

The Percom LFD-400™ 
mini-disk system sells for 





only $599.95, complete with: (1 ) the drive, drive 
electronics and Percom's rugged PS-401 power 
supply all in a finished enclosure, (2) a demon- 
strably superior controller PC card featuring an 
explicit data/ clock separation circuit, MPX. a re- 
markable 2K DOS, and provision for 1K extra 
PROM, (3) an interconnecting cable and (4 ) a 70- 
page users manual. 

Also available: Upgrade kits for SWTP or 'Smoke' 
mini-disk drive systems Kit includes LFD-400™ 
controller, MPX DOS & SOFTRAN™, Only 
$224.95. 

Available soon! 

SOFTRAN™ for Percom's 77-track LFD-800™! 
mini-disk system; SOFTRAN/9™ for 6809 FLEX'i 
files and programs. 

• trademark of Technical Systems Consultants. Inc. 



PERCOM DATA COMPANY INC 

Percom peripherals tor personal computing' 



To place an order or request additional literature 
call toll-free 1-800-527-1592. For technical infor- 
mation call (214) 272-3421. Orders maybe paid by 
check, money order, COO or charged to a VISA or 
Master Charge account. Texas residents must add 
5% sales tax. 




A Few Extraordinary Products for Your 6800/6809 Computer 

From Percom . . . 

Low Cost 
Mini-Disk Storage 
in the Size You Want 



hlJlMW 
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Percom minidisk systems slarl as 
low as $599.95. ready to plug in and 
run You can't get better quality or a 
broader selection of disk software 
trom any other microcomputer disk 
system manufacturer — at any pnce 1 

Features: 1 -, 2- and 3-drive systems 
in 40- and 77-track versions store 
102K- to 59lK-bytes ol random ac- 
cess data on-line • controllers in- 
ctude explicit clock/data separation 
circuit, motor inactivity time-out cir- 



cuit, buffered control lines and other 
mature design concepts ■ ROM 
DOS included with SS-50 bus ver- 
sion — optional DOSs for EXOR- 
clser* bus • extra PROM sockets 
on-board • EXORciser* bus version 
has 1 K-byte RAM • supported by ex- 
tended disk operating systems, as- 
semblers and other program de- 
velopment/debugging aids, 8ASIC, 
FORTRAN. Pascal and SPL/M lan- 
guages, arid, business application 
programs. 





EXORciser" Bus LFD-400EX™ -800EX 1 " Systems 




Upgrade to 6809 Computing Power 

This 6809 upgrade adapter may be used on the SWTP 6800 
and most other 6800/6802 MPU cards. Supplied assembled 
and tested, il costs only $89 95 with user instructions The 
original system may be restored by merely unplugging the 
adapter and a wire-jumpered DIP header, and re-inserting 
the original components Also available for your upgrade 
computer is PSYMON"', the Percom SYstem MONilor tor the 
Parcom 6809 single-board compiler PSYMON™ on 2716 
ROM costs only $6995 — PSYMON'" is also avaflable on 
minidiskette, with source and ob|ect files, from the Percom 
Users Group 



'» RUtmwk oi Porcom Chila Compan* loc 

• traoenwk ol tho Motorola Ccxpcaiicn 

PiSCM end specifications uibiact to change wieXout notte 



Full Feature Protolyping PC Boards 



Percom SS-50 and I/O bus prototyping 
cards Include all ollhe features needed 
lor easy, slralghlfoiward prototyping 
Use wire wrap, wiring pencil or solder 
wiring Features; lin-lead plating over 2 
oz. copper wets quickly, solders easily ■ 
provision 'or power regulators and dis- 
tributed capacitoi bypassing • SS-50 
bus card accommodates 34- and 



50-pln ribbon connectors on top edge, 
10-pin Mole* connector on side edge 
— costs only $24 95 • I/O bus card Is 
1-1/4' higher than SWTP I/O card, ac- 
commodates 34-pin ribbon connector 
and 12-pin Molex connector on top 
edge —costs only $14.95 • Both card 
designsaccepH4-, 16-.24-and40-pin 
DIP sockets 



The Electric Window 1 ": Instant, Real-Time Video Display Control 
This VDC card resides completely in main memory so that control is 
accomplished instantly by direct MPU access to the onboard 2K 
character-store memory and the display control registers Pnce is only 
$249.95 Features: Programmable CRT controller chip provides ex- 
traordinary capability for software control of Functions such as number 
of characters per line, 
number ol lines dis- 
played, highlighting and 
interlaced or non- 
interlaced scan ■ in- 
cludes ASCII 128-umt 
character generator 
which generates 7-dot 
by 12-dol characters — 
lower case letters have 
descenders • provision 
lor optional ROM lor. 
special characters/ 
symbols • comprehen- 
sive manual includes lull 
listing olWINDEX™ the 
Eteclric Window™ dnver 
program - WINDEX™ 
is also available on 
minidiskette through the 
Percom Users Group 





PERCOM OATA COMPANY INC 
en n pc«av eafluuc rexAS 750*1 

t?i4isrea«» 



Produces are available at Percom dealers nationwide. Call toll-free, 
1-Q00-527-1592, for the address of your nearest dealer, or to 
order direct. 
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SPLM-A Systems Language 



Dale Puckett 
14753 Endsley 
Woodbrldge, VA 22193 



Programmers that have been SEARCH Ing for a 
language that allows them to talk to their machines 
et the gut level and still use long, highly 
understandable names for labels end variables, can 
set the FOUND flag. SPL/M Is here. 



Smal I Programming Language 
Is based on PL/M which was 
It Is a block structured 

names of variables and 
31 characters long. It was 

Crosley and Programme, 

Is sold for S59.95. It Is 

or FLEX 2.0, but not 

address is 3400 HI I shire 

Co., 90010. 



SPL/M stands for 
for Microprocessors and 
developed by Intel, 
language and allows the 
procedures to be up to 
written by Thomas W. 
International, Inc. end 
available for FLEX 1. 
mini FLEX. Programme's 
Boulevard, Los Angeles, 

SPL/M Is small and requires only 20K to run 
although a disk or two cassette recorders are 
required. It complies your program In only one pass 
and generates absolute 6800 object code. No 
run-time package Is required. 

This review will list and explain the major 
SPL/M reserved words and structures. A sample 
program called WHERESIT, designed to Illustrate the 
simplicity of the language's structure and 
readability while detailing a very useful utility 
for all FLLEX users. Is Included. 



The reserved words In versli 


an one of SP 


Include: 






PROCEDURAL 


MEMORY RELATED 


LOGICAL 


BREAK 


ADDRESS (AOOR) 


AND 


CALL 


BYTE 


NOT 


DECLARE <0CL) 


DATA 


OR 


DO 


HIGH 


XOR 


ELSE 


LITERAALLY (LIT) 




END 


LOW 




EOF 


MEM 




GENERATE (GEN) 


MEMA 




IF 


. (returns an absolute address) 


PROCEDURE (PROC) 






RETURN 






THEN 






WHILE 







The words In parenthese are legal 
substitutions for the full words they follow. 

Programmers may use any Identifiers, except 
the reserved words, up to 31 characters long. The 
first letter must be alphabetic. The rest may be 
letters, numbers, or the separation character, "$". 
In the program WHERESIT, for example, VERSION Is 
the first Identifier. GETS INF0JRECOR0 Is also an 
Identifier — one which leaves little doubt to Its 
purpose. 

ASSIGNMENT 



Memory locations for variables are reserved In 
the same manner. ■ For example the line, DECLARE 
STOPCUE BYTE, reserves one byte for the variable, 
STOPCUE. 

Additionally the line, DECLARE DISKMWMBER 
ADDRESS, reserves two bytes for the variable 
DISKNUMBER. A one dimensional array or vector may 
also be reserved. For example, DECLARE RFC8O20) 
BYTE, reserves 320 bytes for a file control block. 
After It Is declared, any position In the array may 
be referenced. For Instance, RFCB(4) would 
normally contain the first character of a FLEX 
filename. By the way, these declares can be 
directed to a specific address. Suppose you want 
SPL/M to reference FLEX's width parameter byte as a 
program variable called WIDTH. You would simply 
type, 0AC04H: DECLARE WIDTH BYTE. 

SPL/M' s operators are standard and easy to 
learn, for example BUFSIZE - BUFSIZE - I, subtracts 
one from the value of BUFSIZE. BUF5 - BUF5 + 1, 
adds one to the contents of the variable BUF5. 

Two special SPL/M verbs, similar to PEEK and 
POKE functions In BASIC, are MEM and MEMA. They 
allow a direct reference to memory. MEM handles a 
single BYTE variable, MEMA handles an AOORESS or 
16-blt word. 

In WHERESIT, the procedure WRITEJIT 

Illustrates the use of MEM. The statement CHAR = 

MEMCBUF5) sets CHAR to the value of the byte 

pointed to by BUF5. In this case It Is similar to 
the BASIC PEEK function. 

In the procedure TRANSFERiDISKlNAME, the 
Statement MEM(BUF2) • MEM(BUF1 ) sets the value of 
the byte pointed to by BUF2 to the value of the 
byte pointed to by BUF1. In other words, when It 
Is located on the left side of the assignment 
statement, MEM acts like the BASIC POKE function. 

OBJECT CODE INTERFACE 

The statement GENERATE or Its short version 
GEN allows the programmer to talk to memory 
directly. Here Is a sample statement which uses 
this verb. 

GEN(00EH, .MSGA). 

This line will load the 6800's X-regtster with the 
address of the variable MSGA. MSGA Is assumed to 
be on the first page In this case since direct 
addressing Is Implied by the "DE." 



This sample Is actualy a 
library function already supplied 
When It Is called the function s 
X-reglster to the character pointed 
then calls FLEX's PSTRNG routine 
good point. All of the basic FLEX 
already Interfaced and the SPL/M u 
to reinvent the wheel. He only has 
proper library at the front of his 



major part of a 

called PSTRNG. 

Imply points the 

to by MSGA and 

. Here's a very 

DOS routines are 

ser doesn't have 

to INCLUDE the 

program. 



In an SPL/M program all Identifiers must be 
declared before they are used. To do this you 
either use the DECLARE verb to name all variables 
and symbolic constants and the PROCEDURE verb to 
def I ne procedures. 

Constants are either unsigned numbers, within 
the range of to 65535 or character strings. They 
are Initialized with a DECLARE statement. In the 
sample program the statement, DECLARE W0RKDRIVE 
LITERALLY 'I', assigns the value 1 to the constant 
WORKDRIVE. 



Three library fl les are located on the disk 
you receive from Programme. They are named 
SPLM.LIB, en Interface between the compiler and the 
FLEX 00S routines; SPLM3EAD.LIB, e collection of 
routines necessary to read a sequential tile; end 
SPLMWRIT.LIB, which conteins the code necessary to 
write sequent lei files. 

STRUCTURE AND FLOW 

SPL/M does not heve a GOTO stetement. Insteed 
It controls the flow of programs through the use of 
three common programming constructs, IF-THEN-ELSE, 
DO-END, end DO-WHILE, 
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There are actually two forms of the IF-THEN 
construct and the first Is used In the WHERESIT 
procedure DELETEJTEST. IF (CHAR AND DELETESMASK) 
THEM DELETE >• TRUE will set DELETE = TRUE If there 
Is a character In CHAR and IF the eighth bit of the 
CHAR Is set. If either of these conditions Is 
false then the routine will fall through to the end 
statement and return. 

The other IF-THEN construct Is used In 
$GET$INF0$RECORD to clarify which IF owns the ELSE. 
Oh well, a picture Is worth a thousand words. 

IF ERROR THEN DO; 

IF RFCB(XES) - EEOF THEN RETURN; 

ELSE CALL HANDLEJERRDRS; 

END; 
REOF - FALSE; 
END; 



A close observer will notice that a second 
construct, DO-ENO was also used In this procedure. 
It was necessary to force the ELSE to belong to the 
second IF statement. Since the ELSE was Inside the 
DO-END limits. It Is Isolated from the first IF 
statement. 

Finally, the third construct Is Illustrated In 
the procedure TRANS FERSDIRECTORY. The statement, 
DO WHILE NOT REOF does Just what It says. It 
forces the program to loop until REOF becomes true 
and then It exits. 

Another handy feature of SPL/M Is the ability 
to call a machine language procedure by Its 
address. For example you might want to call 
SWATBUG's clear screen routine at SE2CC. To do 
this with SPL/M you may simply CALL 0E2CCH and the 
proper code will be compiled. Of course your 
program will be more understandable If you DECLARE 
CLEARSSCREEN LIERALLY '0E2CCH' and then use the 
statement CALL CLEARSSCREEN when you want to use 
the function. 



generating Is printed on the terminal. This Is an 
extremely educational experience. You get to see 
how the different constructs work at the machine 
level, not to mention the fact that you can 
pre-test short procedures and see how they work. 

The OPTION LIST can be any of the following 
letters: B Y E C G A. The letters may be typed In 
any order. 

The B allows you to prevent the creation on an 
object code file. The Y lets you automatically 
delete an old object file with the same name, the E 
tells the compiler to display the errors only, the 
C causes the compiler to output a full listing 
which Includes the object code, G causes It to 
output a symbol table with all global symbols, and 
A causes It to output a symbol table which Includes 
all symbols, both local and global. 

Finally, to obtain a listing on your printer 
you only need to use the FLEX P.CMD utility, le, P 
SPLM SIZE. 

CONCLUSION 

SPL/M Is e very powerful language, especially 
tor systems level programs. Its programs are easy 
to write. And, most Importantly, they are very 
easy to read. If you've looked at a program ycxi 
wrote In BASIC six months ago, you can't help but 
know how Important readability Is. With SPL/M's 
unbel levable low price and power It has to be one 
of the best buys In the 6800 software field today. 

EDITOR'S NOTE: For '68' Micro Journal readers 
Interested In running WHATSIT that do not have the 
SPL/M compiler. Dale will sell a copy of the object 
code plus a source listing with symbol table on a 
disk for $15. If you send him a disk and a 
self-addressed, stamped envelope, he will send It 
to you for $10. 

A 68 Micro Journal" lab rating of AAA. 



OPERATION 

Your program can be given an absolute start 
address by using an optional org In statement, le, 
OAtOOH:; or It may be allowed to default to 0100 
hex. Procedures may also be placed at specified 
locations by using an org In statement. 

If you are sold on the simplicity and beauty 
of SPL/M code by now, you probably want to know low 
It operates. 



Rating Scale: 
AAA - Excel lent 
AA - Good 
A - Fair (could be better but works) 
P - Poor (may not always work properly) 
X - Not recommended for children 
(or anything else! ) 



WHERESIT 



On the disk from Programme you will find the 
following files: SPLM.CMD, the actual compiler; 
FLXI02.TXT, the assembler source code for the 
compiler's Interfece to FLEX; SPLM. LIB, 
SPLMREAD.LIB, end SPLMWRIT.LIB, described above; 
and SIZE. TXT, a sample program written In SPL/M 
source code so you may test your new compiler. 
SIZE Is a very useful utility which reports the 
date a file wes created, the number of sectors It 
contains, the number of bytes In the file, In both 
decimal and hexldeclmol, the number of lines In the 
f I le and a checksum. 

To compile a source program which you have 
written to a text file you simply type: SPLM, 
SOURCENAME, BINARYNAME, -WPTIOM LIST. 

The BINARYNAME and OPTION LIST are optional 
and If you type only SPLM SOURCENAME your binary 
file will be given the filename, SOURCENAME.BIN. 
If you type only SPLM (CR), the compiler will 
operate In an Interactive mode and the code you are 



WHERESIT.CMD outputs a ml n I -directory which 
contains the filename, extension, date created, 
disk name, and disk number. of every disk Inserted, 
its output looks like this: 
LOSTFILE CMD 12-17-79 ASMBW0RK 1022 (CR) 
The Inclusion of the disk name and disk number on 
each line allows you to find a program which you 
wrote six months ago and misplaced. It Is 
especially useful when you have more than four or 
five disks and saves the time It takes to CAT each 
disk when looking for a misplaced file. 
To build an Index file containing a directory of 
al I your disks: 

Place the disk which will contain your Index file 
In drive 0. Place a copy of WHERESIT on the same 
disk. Then, piece the first disk to be filed Into 
drive 1 and type: 
++-(0, O.ALLDISKS, WHERESIT 

After you have read the directories from alt of 
your disks type an B E M In response to the prompt. 
Now, you may use the FIND. CMD to locate a 
misplaced file. Type: 
+++FINO, ALLDISKS, LOSTFILE 
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Each line In ALLOISKS which contains LOSTFIILE 
will be printed on the terminal. That line will 
give you the number and name of the disk containing 
your program. 

If desired. ALLOISKS may be sorted by filename, 
extension, or date created, etc., with the 
SORT/MERGE package. The results could then be 
printed Into an alphabetical Index to every file 
you own. Or, use your imagination. 
ALLOISKS may be updated by running MHERESIT once a 
month or whenever you get the urge. It only takes 
about three minutes to build an Index of 25 disks 
using MHERESIT. 

Since SPL/M Is structured so nicely the user could 
easily modify this source code to read other 
Information from his disk directories. •/ 



OAlOOHl; /' Starting adgrait •/ 

/" Variables and procadurw not declared or defined 

baloa are Mllniid In Sl'LN.lIB, a library lilt trMch 

1» reed by thla program. •/ 

DECLARE YEHSION LITERALLY "•( 

DIOOHI DECLARE RFOSIMO) BYTE) 

1ILCLWL IHLITEIHASK LI IEHALLY 'BOH'; 

DECLARE DELETE HYtt; 

DECLARE REOF BYTE; 

DECIDE STOPCUC UTIE; 

DECLARE END' LAC HfTEl 

ONCLUME SflM.LIU 

OECLARE ItnXOOItl LlttHALLt 111. 

OECLARE OOS|« LITERALLY ■!&'; 

nrClAHl V0D4H LITEHALLT 'ft'; 

DECLARE QROIrt LITEHALLT <T; 

DECLARE UlSKHAwnai UTTtj 

OECLAKE »IS«NU**lfK AHWESS; 

DECLARE BUFI ADDRESS, BUFI ADllftESS, tufi ACOMESS. »*« ADDRESS; 

DECLARE HUFJ ADDRESS; 

DECLARE BUFSIZE IITTE ; 



BATElMBCCOUM; 

DCL NMIM LIT •»■. OAT LIT ■»', TEAR LIT 'J7-; 

DECLARE OCT ADDR; 

IDiFC - FALSE; 

IF RFCSDOVTH) < ID THEN CALL SPACE) 

DOTA - .DDT; 

DOT • RFCSCMOWTM); CAU OUTTKC; 

CHAR • •-•( CALL PUTCHR; 

DOT • R*C8[DAY)| CALL OUTOCCj 

CHAR - '-"; CALL PUTOAi 

DOT - RFCD'TCaR); CALL CUTWC; 

IF l«C8(DAT) c 10 THEN CALL SPACE; 

CALL SPACE; 
END; 

/' 0»<yi tyttee record to .Mo. reading at dl»« nmb a» 
end dlt* naM. •/ 

OP NtSYSTEMlPROCXauRE; 

FCBA • .RTC8; 

RFCBIXFC) • QOSHR, 

RFC8IXUN) • UCRKDA I «E ; 

CALL FHS; 

IF ERROR THEN CALL HANDLES ERRORS; 
END; 

/■ Trio neirt routine return* ulth rout record trout tti« directory 
In RFCB. On a« I f REOF ■ TRUE II and ol HI*, nu REOF ■ FALSE. 

FHS rat urn I «tt» ERROR ■ FALSE II ok. ERROR - TRUE II 
tnero nee been o dltk Problem. */ 

BETS I HFOtHECORDsPROCEDORE ; 

REOF • TRUE; 
FCBA • .RFCB; 
RFCBOFCI ■ OHDIR; 
RfCUIXUN) • tOoOAIVt; 
CALL fiXS; 

IF CHW1 THEN CO; 



if hfch'xes) • eeof then 
Else oil handliierhoas; 



•TURN; 



REOF ■ FALSE; 



NRITESI IIPKOCEOURE; /" Output* tit* cnar«ct«r> •/ 

DO WILE MirslZE o 0; /• pointed to or 8UFS. String •/ 

&LW - MEM(UUFJ); /• It oof Sl/E characters long." V 

IF UlAK « THEN OXAH ■ > '; /* It a eftarectsr Is null •/ 

call rwfunv: /• a twee it •runs', •/ 

HUFJ • BV» • I; 
ttUFSIZF ■ BUFSIZE ■ I; 
END; 
END; 

/t All dlik rrort nctpr end ol II lo are troated 
at latll. V 

KAAOlEVENHORSiPRDCCIAM ; 

FCM» ■ .RFCH; 

CALL HPIEHIt; 

CALL HMHS; 
END; 

/■ Point to adtlraai containing tne dltk nunlter and 
print It. ■/ 

tniTElOISKlNIJMnElcPHOCEIUtli:; 
LDSPC ■ TRUE; 
UUTA • .UIVKMJKiCh; 
CALL OUTUCC; 

EMI; 

/' i^lnr is Millar containing rrtn disk navae And 
prlnf It. •/ 

wlTElolSr.ViAW iPSOCtllUHt; 

BUFj - .DISKnAIC; 

UUFSIZE - »; 

CALL WRITEUT; 
END; 

/* Point to anient Ion In HFCU and print */ 

•RITEHXTtNSlOlllPWa lAJKE ; 
NUF5 - I.RFO) . 17); 

OUFSIff • ); 
CALL UHITEIIT; 
[IO; 

/• Point to lllineee In HFEU and print It, V 

wttl IE I f ILEn AX iPROCE IXflT. ; 
BUF5 ■ I.RFOl • »); 

bvfsih • S; 

CALL WllTEllTl 
END; 

/• CntcA bit «.|H ol lint charactsr ol II I Mast, 

II Hi rhlt Ilia nai ba«n dolattd. V 

l*L E TE 1 1 E ST I HHOCJ DM ; 

UELETt ■ FALSE; 

CHAD • HICHtlFNIi /■ CET FIRST EMAH OF IILfNAHE ■/ 
CHAR • CHAH AHI) OELriEWASK; /■ AMI IT KITH BO Ht I ■/ 

IF OtAR *> new DELETE • TMUEj 
INDg 

/• Print Jnto In IW-DD-YT I or mat. •/ 
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/' Oaaat dlractory to alio" raadlng Into RFC8 •/ 

OPENVOIHECIORTl PROCCnvPE; 

FC8A . .RfCSi 

RFCB<XFC) ■ OO04H; 

RFCO(XUN) - KHUniVE; 

CALL "«S; 

IF EMW) THEN CALL HAI61EIERR0RS; 
END; 

/• Print HlanOBO, axtamJon, data eraatad. dltL 
and dliK nusbor In coliAWtar loriaat. */ 

KIITESINFUOWTIOllt mOCEDUREl 

IF DELETE THEN RETURN; 

If HfCBIXfN) - THEN RETURN; 

CALL WW 1 1 El F ILENAmE; 

CALL SPACE; 

CALL NRITEHXTEnSION; 

CALL SPACE; 

CALL l'*ll . 

CALL SPACEj 

CALL URITEiDISKlNAME; 

CALL SPACE; 

CALL WRIIElDISKMl VHX; 

CALL POHFi 



/* Hrlti nam ot current dltk Into a 
tor latar printing. '/ 

IRANSFERtDlSKtNAMEl PMTXZnuRE; 
BUFI ■ .fUTOI * 4; 
P.UFJ ■ .OISKNAIC; 
BUFSIZE . »{ 

DO WHILE eu«SI2E <> 0; 
CHAR ■ NtH'SUFIl; 
IF CHAR <> THEN 
MEHIKUF?) ■ MEMtBUFIlj 
ELSE OK8UF2) a . I. 
0U«I • BUFI • I; UUf? a 6UF2 » I; 
BUFSIZE ■ BUFSIZE -I; 
END; 
BUT) • .RfCII . IS; 
BUFa • .DISKMUMBCR; 
•CHAIUUFO -tCHA<BUF3); 
END; 

/* Output Hlactad dlractory Inloraiarion. V 

TRANSFERSOIRECTORY: PRKXOURt; 

CALL OPfNtOIRECIOBY; 
CALL EETIINFOSREOORD; 

DO WHILE HOT REOF; 

CALL DELETE I It ST; 
CALL NRITEt INFORMATION ; 
CALL MUINFOM CCDDl 
ENDl 
E«| 



■Iter anllad OISKNAHC 
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/• Raad i*««* of dl»x and numbar of dlak tram ay&tan 
Information racord V 

RCAOlNlMBERl PWXEtXIHE; 

CULL CPEMtSTSTEH; 

CALL GEUINFOSHECOHO; 

CALL THANSFERSOISKlNAKE; 
ENO; 



I THEN MIT « KET'.Alj 



/• MAIN •/ 

DECLABE PR0WT OATA I'CKANGE DISK IN OP. I vf 
DECLME FK0H»TI OATA OTTPE AN H' TO STUP. 
0AC22H: DECLARE OUTPUTJSMITCM 6TTE; 

STOPCUE • 0; 
ENDfLAO ■ l E'| 

DO HHILE STOPCUE o ENOFLAC, 
CALL READlwJMBEK; 
CAU mANSFERIDIRECTORTj 
OUTPUT 1 SWITCH ■ TRUE J 
HSGA • .afiOMPTi CAU PSTRNG; 
MSOA • .PROVPTI; CAU PSTRNG; 

CALL cnofij 

OUTPUTJSKITOl • FALSE! 
STOPCUE • CMAfl) 
END; 

CALL HARMS; 



Dale Puckett BASIC UTILITY PACKAGE 

t4753 Endsley 

Woodbrldge, VA 22193 

This month we review six utility programs 
designed to make the life of the BASIC programmer a 
little easier. They are offered by Star-Kits, P. 
0. Box 2909, Mt. Klsco, N. Y. 10549. They were 
written by Peter Stark who has a very good touch 
with 6800 hardware and software. One of the 
programs Is written In assembly language, the 
others are coded In BASIC. 

The utilities are: BASE0IT, an editor designed 
mainly to renumber BASIC programs; PRETTY, a 
pretty-printer; VIN0EX, a program which Indexes 
variables; BAC0MP, a utility which lists the 
differences between two BASIC programs; SHORTS, 
which shortens listings and speeds up execution of 
some programs; and BENTER, which automatically 
generates 1 1 ne numbers and puts a program on a 
disk. A bonus utility called FLOGEN also comes with 
the package. Given enough time It will print a 
flowchart of a BASIC program, pointing out all 
FOR-NEXT loops and transfers of control. 

The packages are aval lable In three versions: 
MF runs on the Mini-Flex DOS and SWTPC Disk Basic 
Version 3.0; F2 runs with Flex 2.0 and TSC Disk 
Basic; and PD runs with a Percom LFD-400 disk, 
Mlnldos-PLUSX DOS and Percom Super Basic. Some of 
the programs require 32K of memory although they 
can be modified to use less memory. 

BASE0IT, the assembly language program Is 
supplied In both source and object form. It was 
designed specifically to renumber BASIC programs 
and changes all GOTO's, GOSUB's, etc., within the 
program while It Is changing the line numbers. 

BASEDiT wilt prompt you for a starting line 
number. If you do not give one. It will start 
numbering lines at 1000. Unfortunately however. It 
will only Increment line numbers by 10. This may 
seem I Ike a shortcoming to the programmer who loves 
to remove all the bugs and then renumber his 
program with a line Increment of one In order to 
make It hard to change. 

BASEDIT Is menu driven and also allows you to 
do minor editing to the BASIC file. It Includes 
function to both (F)lnd and (R)eplace strings. 
They both seem to work although editing with a full 
size editor Is obviously more efficient. Both work 
on every occurence of the string In the program and 
the user should proceed cautiously. Stark says In 



his well written documentation that BASEDIT might 
take several minutes to renumber a long program. 
Yet, It seems to be fairly fast and I timed It at 
14 seconds on a program 32 sectors long. 

PRETTY, the pretty-printing program does 
several things. It separates the listing Into 
pages, providing a page heading complete with date 
and page number on each sheet. It double-spaces 
before and after all REMs, breaking the listing 
Into easily readable blocks. If a REM Is 
encountered within a line It Is automatlcaly placed 
at column 50. 



PRETTY Indents each statement In a FOR-NEXT 

loop thereby Illustrating the range of the loop. 

Nested loops are Indented further and a very 
readable program results. 

The program prompts you for the Port number, 
the number of lines on a page, the program name, 
and the date. It seems a shame that an option to 
control the width of the listing was not provided. 
There was no problem listing a program on my IBM 
typewriter, but when I tried one on my Model 15 
teletype I occasionally ran out of space. I do not 
like to make routine listings on my IBM because It 
costs $30 just to get an estimate tor repair. 

When using the mlnl-FLEX version you must 
change line 180 so It will know which file to open 
for read. It you do not make this change before 
running you will get an error message which points 
to the line, but, It seems It would be much nicer 
asthetically If the author had prompted you to make 
the change and then type "C0NT." 

VIMDEX prints a list which gives every line 
number where a variable Is used. It Is one of the 
most useful programs In the package. Its only 
fault appears to be Its speed. I timed It at II 
minutes and 47 seconds before It started printing 
on the same 32 sector program mentioned earlier. 
It then took another four minutes to print the 
results on a CRT running at 60 characters per 
second. Most of this problem Is caused by the fact 
that It Is running In the original SWTPC BASIC. 
Here's the good news. On the documentation a stamp 
noted that an experimental version of VINDEX.CMD 
was enclosed on the disk. I'm pretty sure that 
V INDEX. CM) was compiled on the ABASIC compiler, it 
Is fast and Indexed the same 32 sector program In a 
I Ittte over 35 seconds, start to finish. 

BACOM* Is a utility that will help you find 
the changes you made In later versions of your 
BASIC programs. It reads from two separate BASIC 
program files and prints only the differences. 
Every time It encounters a line that Is different 
It prints the line from one tile and then Indents 
and prints the same line from the other file. 

SHORTS is a program you can run on your BASIC 
masterpiece after you have removed all the bugs. 
It shortens the program by removing all remarks 
that are not on lines referenced elsewhere and by 
concatentatlng several short lines Into one. It Is 
also possible to have It print you a list of all 
program transfers sorted by destination because the 
program needs that Information before It can remove 
any REMs. 

SHORTS Is also hampered by the lack of speed 
of SWTPC BASIC. It took It Just over 13 minutes to 
run on PRETTY, a BASIC source file which Is 28 
sectors long. But, the new fl le was only 16 
sectors long. 
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BENTER Is a short program and seems to perform 
as expected. It faithful I y generated automatic 
line numbers while I typed In a short BASIC test 
program. And, It allowed me to pick the starting 
line number and the line Increment. The resulting 
disk file loaded into BASIC and ran perfectly. 

FLOGEN, the bonus program Is also Interesting. 
It reads a BASIC program from a disk file and 
prints it In an abbreviated form with arrows and 
lines connecting segments of code which go 
together. It also connects each NEXT with the 
proper FOR. It does not Illustrate transfers 
caused by a GO SUB however since they almost always 
Involve long transfers from one end of a program to 
the other. FLOGEN also runs slowly and it takes 
nearly 30 minutes to print a chart of VINDEX.BAS. 
V INDEX Is 37 sectors long. 

CONCLUSIONS 



For the person who spends most of his time 
writing and debugging BASIC programs, this Basic 
Utility Package should be well worth the money. 
For those stl I I using SWTPC type basics BASEDIT 
should be a great help. PRETTY Is a program every 
BASIC programmer should be required to use. What 
good Is a program If you can't read it six months 
later? PRETTY will go a long way toward Improving 
your readability problems. V INDEX will shorten a 
tot of headaches, espclally for those programmers 
who write long BASIC programs with many variables. 
You probably couldn't find an easier way to keep 
track of them. SHORTS will help you out by 
Improving the speed of execution. Just make sure 
you save a copy of the original program with all 
the REMs. 

The numbering and formatting are almost 
automatic and the result Is extremely pleasing to 
the eye. Readability Is the answer to many 
programming problems and Stark Is making It 
possible for you to let the computer do this 
housekeeping chore while you worry about the 
problem your solving. Isn't that why we use 
computers? 



A 68 Micro Journal lab rating of AAA 



Rating Scale: 
AAA - Excel lent 
AA - Good 
A - Fair (could be better but works) 
P - Poor (may not always work property) 
X -Not recommended for children 
(or anything el set) 



ADDITIONAL CfffCNTS 



K supports sequential files whereas both R 
versions support sequential files (both space 
cMfressed and non space roarresfed) and randow 
disc files (both byte orientated and record 
orientated). 

All registered purchasers of Basic K and Basic R.2 
are entitled to the aanual for Basic R.3 free of 
charge. Just drop us a line with Your naae and 
address. All registered purchasers of Basic K and 
Paste R.2 ran purchase Basic R.3 for slO.OO. 
Specify whether you want it on disc or cassette. 
Source of Basic R.3 is not supplied. but 
initialization instructions are included with a 
listing of the parameter and Juap tables so that 
the user has full ability to adapt Basic R.3 to 
his nonitor. his choice of control characters! as 
well as to his choice of SSB DOS 3.1-4.2 1*6-7001), 
$A-B000i sC-DOK)) and DOS ?. I (J6-7000, *<H*000. 
JC-0000). 

32K of RAM is not required as indicated in the 

review. The earlier Basics use the SSB add "B" 

register to "X" register subroutine located in the 

DOS. The user is free to substitute his own 

equivalent routine elsewhere. Basic R.3 has its 
own self contained routine for this purpose. 

NOTWt PROGRAM FOR AflKX 

AAA Chicago Coaputer Center announces the 
availability of our Mode* Prograa Version ?.0. 
This program peraits the user to interface a aodea 
through a serial interface installed in anr I/O 
port. Disc file transmission in both directions 
is supported as well as keyboard transmission. 
The routine that polls disci keyboard) and aodem 
is under complete user control. Disc SYStea does 
not have to be DMA. Cost of instructions and 
source listing is $25.00. Add SlO.OO for cassette 
or disc and be sure to specify aonitor (GKXBUG, 
Saartbug, SWTBUG) and DOS (SSB, Mini Flex. Flex 
2.0. FlexOy). 

AAA Chicago Coaputer Center 
120 chestnut Lane 
Wheeling, II 60090 



A few additional words regarding the review of our 
(AAA Chicago Coaputer Center) Basic K. The version 
that Jeff Craig reviewed is the disc version, we 
don't have separate versions for cassette and 
disc. Our Basics are popular because the cassette 
features perait users to transfer cassette files 
to disc (Saoke Signal Broadcasting) when the user 
adds disc to his systea. Basic K has been 
superseded bv Basic R.2 which in turn has been 
superseded bY Basic R.3. All versions support 
cassette as well as Saoke Signal Disc. The version 



(312) 45HM50 



• DISK BARGAIN • 

Technical Systems Consultants, Inc, Box 2574, West 
Lafayette, Indiana, 47906, (317) 463-2302, Has 
avel labia approximately 300-400 16 hole (sector), 
hardsector 5 1/4 Inch minidisk at a very reasonable 
price. For those users using this disk format It Is 
a fine opportunity to buy a supply of disk at a very 
good price (below wholesale). 



Interested parties should call or write either 
or Den at the address shown above. 



Dave 
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A 6800 SOFTWARE IMPLEMENTATION Of DATA STREAM 
ENCRYPTION 8Y THE DATA ENCRYPTION STANDARD 

S. J. LaCour and T. F, Elbert 

The University of West Florida 

Pensacola, Florida 32504 



The National Bureau of Standards has 
established Its Data Encryption Standard (DES) 
as the single method by which encryption of 
non-classlf led data within all federal agencies 
Is accomplished. The standard specifies a 
hardware Implementation, and several 
manufacturers now market encryption modules 
which have been validated by the National Bureau 
of Standards* Those Individuals with a 
requirement for data encryption not Involving 
any federal agency, or those merely wishing to 
experiment with data encryption, can use a 
software version of the DES algorithm. 

A previous article (Reference t) has 
described a 6800 assembly language Implementa- 
tion of the DES algorithm which will run In 1100 
bytes of memory, and which accompl Ishes 64-bit 
block encryption In accordance with the provi- 
sions of the basic algorithm. When appl led to 
data stream encryption, I.e., the serial flow of 
data by bit or by character, block encryption 



methods are not desirable because the first bit 
or character cannot be encrypted until the last 
bit or character has been received. One 
alternative Is to pad the block with an 
arbitrary pattern In order to fill all 64 bits, 
but this has the disadvantage that the plain 
text must then be stripped of the additional 
characters after decryption. The purpose of 
this article Is to describe a 6800 software 
Implementation of data stream encryption by 
means of a technique called cipher feedback. 

The basic concept of cipher feedback Is 
shown In the figure below. The reader will 
Immediately note that there Is no decryption 
used, but rather that synchronized encryption 
processes take place at both the transmitter and 
receiver. These encryption processes are used 
to generate a stream of "encrypting bits", which 
are then exclusive ORed with the plaintext bits 
at the transmitter to generate the clphertext 
bits, and again with the clphertext bits at the 
receiver to recover the plaintext. Since the 
exclusive OR Is Its own Inverse transformation, 
the system works if the encrypting bits are 
synchronized between transmitter and receiver. 
The encrypting bits themselves are produced by a 
standard 64 bit DES block encryption, operating 
on the Input block to produce the output block 
from which the encryption bits are obtained. 
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Any number of Sits from the output block may be 
used, and the remainder discarded. In one 
extreme, only a single bit would be used from 
each encrypted output block, and tn the other 
all 64 bits would be used. The system described 
here Is Intended to encode the ASCII character 
set, as entered from a keyboard, making the use 
of eight bits from each output block the natural 
choice since the plaintext Is grouped as eight 
bit blocks. 

Synchronization of the Input blocks at the 
transmitter and receiver Is obtained by using 
the same key at both the transmitter and 
receiver locations, and the clphertext Itself as 
the input block. Hence the term "cipher feed 
back" as applied to this mode of operation. 
Since the clphertext Is common to both trans- 
mitter and receiver, synchronization Is assured 
In the absence of any transmission errors. Even 
If a transmission error does occur, the system 
will automatically re-synchron ize after 64 bits 
of clphertext has been correctly received <elght 
ASCII characters In the Implementation under 
consideration here). The same feature produces 
automatic synchronization on start-up after 
transmission of 64 bits, even If the Initial 
Input blocks are not Identical. 

In addition to self-synchronization, the 
cipher feedback mode of operation provides 
protection against a particular type of Intru- 
sion called "spoofing". This occurs when an 
Intruder, while not knowing the secret key, does 
have knowledge of certain corresponding cipher- 
text and plaintext combinations. These could be 
obtained by observing the clphertext resulting 
from a known plaintext. The Intruders objective 
Is to Intercept certain portions of the cipher- 
text, alter It In accordance with the known 
c I p her text-p t a I ntext combinations, and 
re-transmlt It In such a manner that the 
Intrusion goes undetected. Protection against 
spoofing Is obtained by a feature called "garble 
extension", whereby If any portion of the 
clphertext becomes garbled, the decryption of a 
certain amount subsequent clphertext Is also 
garbled. That the cipher feedback mode does 
provide garble extension Is easily seen, since 
mod I f ication of any clphertext between trans- 
mitter and receiver will Immediately cause a 
loss of synchronization for the following 64 
bits. In the system described here, garble or 
spoofing will produce a garbled decryption for 
the following eight ASCII characters. 



The Implementation described here was 
programmed for a SWTP 6800 microcomputer, and 
was made Into a utility for the FLEX operating 
system. It utilizes an encrypt and a decrypt 
mode, permitting It to perform either the 
transmitter or receiver function. In either 
case. It responds to keystroke entries on the 
terminal, either encrypting a single keystroke 
entry Into two hexadecimal digits or decrypting 
two hexadecimal Jlglts Into the appropriate 
ASCII character. Characters supported by the 
program are the set of ASCII keyboard 
characters. 

The program has been configured as a FLEX 
utility, with the name DESSER1. It uses the DES 
algorithm presented In Reference 1, with the 
exception of the main routine. There are, of 
course, additional storage definitions required. 
The result Is that this program Is Identical to 
that described In Reference 1 after line number 
J1S, beginning with subroutine SHIFT. 

The data stream encryption algorithm 
Implemented here performs encryption In one byte 
Increments, as described above. However, In 
order to Increase the utility of the program for 
the user experimenting with data encryption, the 
Input data, whether It be plaintext or cipher- 
text, is stored In an 80 byte buffer during the 
Input operation. The encryption or decryption 
process Is then Initiated by a carriage return 
command, at which time the buffer contents are 
treated as a data stream. The first eight bytes 
In the data stream are used for synchronization 
of the receiver, so that actual decryption 
begins with the ninth character sent. 

The use of this buffer real ly defeats the 
purpose of the data stream encryption concept; 
It Is used here merely as an aid in simulating 
the data stream. In an actual application of 
deta stream encryption, the reading of the 
buffer would be replaced by the data stream 
I tse I f . 

Upon the DESSER1 request to FLEX, the 
program responds with a request for specifica- 
tion of transmitter or receiver (encrypt or 
decrypt) mode. When this Is provided. It will 
request the key, which Is a string of 16 hexa- 
decimal digits. When the key Is typed In, the 
program will request the Input data, which 
cannot exceed 80 characters for plaintext or 80 
bytes for clphertext, to be followed by a 



14 



"88' Micro Journal 



carriage return. The encrypted or decrypted 
message Is then written out In a data stream 
mode as It is created by the program. Trie 
program Is not fast, since the complete OES 
algorithm must be exercised for each character 
encrypted or decrypted. For a one megahertz 
system, a typical speed of two characters per 
second has been observed. 

Following the listing Is shown a set of 
examples using the FLEX utility program DESSER1. 
The first and second show an encryption followed 
by e decryption. The first eight characters, 
SYNCWORD, are not properly deciphered, since 
they constitute the synchronizing bytes. 
Example 3 shows an attempt at decypherlng using 
the wrong key, while example 4 shows the garble 
extension and re-synchron ! zat I on features ta 
carriage return was generated In the resulting 
garble In this particular case). The remaining 
examples Illustrate the capability for lower 
case and other ASCII symbols. 

For jse In experimenting with data stream 
encryption, there are several warm start 
addresses which permit entry Into the program 
without recourse to FLEX. These are 02FE, which 
Initiates the entire sequence Just as If a FLEX 
eccess had been made; 0338, which encrypts 
plaintext with the currently existing key; and 
0399, which decrypts clphertext with the 
currently existing key. 
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eOOKEEPING (Part-3) 
F Ina I next month. 

W r I I I am Stock 
1 125 Lois Dr. 
Cincinnati, OH 45237 



0001 till PROFtl/lOSS 

0002 tit prinij incom t expeusi 

COOI REK IPID UKULIUi OiFKlCrlCE 

000 1 IE" pi. git 

00 10 OKI t!ir».«ti 

0020 If-AI ll, VI ,v2,V],ui,v5,V4,v?.ve,u» 

0030 CLOSE Ii 

0010 OPln ll.l.HMSlER 

0030 run cn«tit»);CKtii22];CH«t(OiiCrinio>;CMtttio): 

ooio iii tot tmiTti ouit>ut nscii 

0070 t(l 'Oil INFOIIIMOI NEIE 
0500 Mill "PROf 11/tOSS IS OF ■; 
0510 IItSIIKUII 

0J2O if »i ttttr im» mi-o-'M 

0530 rim LEFrtii«,}i;-/-;ri)Diiit > l > 2i;-/-;«tGHii<«i.2) 

0340 ptim 

0330 riinr ■incnrif 

0360 riixr 

0370 OOSUI lOOOilln IEI0 FILE 

0310 if cnvi mm uo 

03*3 IF S2-0 IKi 370 

03t0 CCSUI llOOiREH ICCIII1 ILICN 

otoo prihi Ci ;Ct;i*lil2-il«nt)i:it 

0110 P-PtUJ 

0120 00T0 370 

OtiO PRIH1 

0440 C2-PIG0SJS 1100 

0IS0 PUNT -tOlil lNC0"[-;ll!i23-LEplimii;«l 

0110 IEID II ,11.02, OttlF IDFtll^l THE* PRINT "FllE [iCOnriErf 

0170 If OK-UI THEN 160 

0180 PONT iPHmiPRlNl -E JPEftSES- if-RI Hi 

0190 coia 7io 

0700 OOSUI lOOOlRC* REll fkE 

0710 If 0OU7 IHEN 710 

02)3 If 02>0 'HEI 700 

0720 COSUI liOOHEN lECINlL M.10N 

ODo piint ci;n;i«lij2-LtNin>i;n 

O740 Ltl-02 

0230 GOTO 700 

0714 PR In I 

0774 C2>Ll0l'0 

0710 GOSUI UOOltll lECINtL ILIW 

0710 rim -loin itPEa3ES':iiii2)-LENii>>i:i« 
otoo PI III 
0110 C2-P-L 
0120 COSUI llOO 

0130 IF L<P HE H PRINT -rROf ]!-;illl23-LE«illli;ll:G0IO (30 
OHO PRUT -L0SS'-;l«ll2S-LEI<«lli:it 
0131) CLOSE tl 
0140 PRINT 
0170 1IPUI It 
0180 CKIIPI O.nllHl 
0113 REN 
1173 crt-03 REN READ SUII0U11NE 
0107 t(N 

1100 lit! 11,01 .02. CI 
1110 IF EOFlllH INE* Gl'tttttttt 
1120 111 URN 

io»3 ni> 

1013 PEN DEC1NII ILIGPl 

1117 «Cl 

1140 6I.SIRHG2I 

1103 IF G1>U« IKtN 4|iSISt(-G2l 

II 10 If G2« t Mt • C3 I THEN «!.«.". 0" 

'* n 1120 If G!H0.]»llS2i1Ol THEM M.lti-0" 

i 130 R( TURN 
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RU MlNTC««»Ct ROUTINE 
REM I01H ill 1 4/9. 

» l " MO,tf. HAS 

sror itut 
_j-2ifitiin io«a :RLn ajilmIoi 

r-l i«0T0 IO00;P,£« 0/1 Midi 

mil 

REN SUIROUllNlS 
■EN 

pntm <nii«ii4j:tH»»uji ichr»(9i:chni(o>;cmhio>; 

HI 1(1 MM 
005UI 110 
FDD XH 10 30 
Plldi '••; 
MEX f I 

mm ipeim 

PR1NI IIAlnlEHSMCE IS r»l«(a/SON- 
PNIM1 '«C[1 I'i nusi IE im- 

PAlKT "ASCE4D 1MB SfH/EaCE.*" 

P4i t nt tm«i 

r»B Ol 10 30 

ruin •••; 

NEXT i 

open it.o.pm 

■ EAI • t ,VI ,V2 ,« ,V4 . 11, 94, 1/7, It) ,V1 
CLOSE II 
Mini tPIINI 
MEIVIM 
MEN 

«EH G/l OMh 

INPU1 'IS OlDESI 0/L OM 10", Al 
II M-" !(.[• 230 

II lEFIICAI.IIO-f IHC> PRINT -PUT II MMIOTO 
OPEt 4t,t.0lP,45IEA 
OPEi 12. O.GLNASTEN.IAl 
SCNM1CH t? 
ACTUM* 
REM 

MEll A/p OPiK 
REN 

1MPUT "IS omisi 4/1- OR lO'.tt 
If *»■•' IMEM 310 
II lEFIUM.IK.-l- I** PMIRI 
OPE« II .t.APAASTER 
OPEM I2.I.APP.4SIER.IAC 
SCMMTCH 92 
REllWM 
REM 

REII KRllt RECORO 
■EM 

yftlTE 02,01, 92, 09,03,04 
■IIUK 
■Ell 

■EMI RECORD 
R£« 

READ Ml, II, 12, II, 1J, 14 
AKIIDIIIA-4 EOFU 1-1 IHEK 11j999999»» 
MCI lit a 
■EN 

■ CM 

IF VM.<<tlog7 THEN V-l 
Tl UAL<*t>>98 THEM V<l 
ir VAUMKOl THEM V-1 
■UUMM 
REM 
II* 
■EM 

■En Unix PROEM* STARTS MERE 
MEll 

OOSUI 120 

OM F GOSVI 230,3I0;»EN A/P.O/l 
OOSUI 440 
SOSUI 100 
IMPUI -acci <",«» 
U »»<■■ IHEN ISOOlMEH CLOSE OP 

HI 
04 F OOSUI 520,300l»EA VALIDATE ACCT 






■VT 11 OM- UOIO .110 






IF »•! IMEM IMPUT "INVALti 4CC1. 

4.9*11411 
IF Mill THEN U]0;R£H II«» 4CCI 
IF 4.11 INCH l)M:MEll THIS IS 11 
PMIMI •■£» ACCDWI' 

OI-AIO2-0 
IMPUI 'DESCIIPTIOlf',0* 
IF F«l IHEH 1220 
IRPIIT -PA»»£NT t ,0) 

0)«-AISC03> 

IMPJI "Mir OWE (AMI • •!)-,•• 
IF »!••■ IXEa *|.'0- 

04.VALCAI) 
INPUT 'DATA 04t-.il* 
IF »•■" THEM 1220 
IF LCFT9U4.1IO-Y" IMCl 1140 
OOIUI 420HEI1 URITE RtCOIl 
OOTO 1030 

OI-lll02.I2iDS-C3iO4.l4i04.il 
P<IMT -III KSCMt ";ll 
IMPV1 -KU ItStMl-.OI 
IF HI--- IHEN 01-11 



,4110*10 1030 



1)23 IT DI--1ELCIE- lltEM IF 12-0 IMEM 1410 

1130 IF !•! TMEN 1390 

1310 PR1MT "OLD PATHENti ";«H(13> 

1)30 IMPUI -«E» F*tMEMt-,03l03«-»lS(O)l 

1)40 PtlMI "OLD IAIC: 'IK 

1)70 INPUT -NEU DATE ',0« 

1)00 IMPUI -04TM OH-,41 

IMTI IF III" IMF* I DM 

1)90 IF LEFItlAI.DO'l" inCn OOSUI IOOiOOIO 1)01 

1400 COSVI 4201 ICM MIITC RECORD 

1410 OOSUI 440IP.CH REM MO I 

1420 OOTO 10)0 

1423 OEM 

1423 MEN FIMD ACCI 

1427 REM 

■ 4)4 IF E0F1II-1 THEN ISM 

1449 »t.1ll02-I2iO3-l)[04-14i0»-I» 

1450 OOSUI 420i»E» MUTE MCC1 
1440 OOSUI 440 

1470 GOTO 1100 
1493 MEM 

144S REN COPT RES1 OF MlE 
1417 REM 

1300 IF E0F11I-I TM£M |330|NE» COPT HOME, FINNISH 
1310 1 •!! 102 = ] 2 1 03- 13104.1 41 0»«I» 
1320 OOSUI 420iREm URITE MC0M1 
1310 OOSUI 440:«£J1 MEMI REK1 
IS40 OOTO 1310 

1330 IP E0FU1-I IMEM IMOiRCN COPT IOME • FINISH 
1340 OOSUI 100 

1S70 IF F-2 (MEN 1470IIEH MO HISI0M9 FOR A/P 
1310 PMIMI -COPTIRE 1E141L- 
1390 OPEN ll.l.CkHISI 
1400 OPEN 43,0.6LKI$T.»A1 
1410 SCMMTCH 12 
1420 NEAO 11,11,11,13,14 
1430 IF EOFU 1-1 THEN 1440 
1440 URITE 93, II, 12, 13,14 
1430 0010 1420 
1440 CLOSE 11.12 
1470 PMIMT -NEU NASTEN OR 10. 
I47S PtINI -PUT SYSTEM DISC OM NO." 
1400 1KPUI -IS IT TNEME'.MI 
1483 IF •!■"- THEN 1410 
1190 IF LEf 11(44,1 lO'T- TMER 1473 
1 ?00 CHAIN O.NEMU 
■ 

0001 REM RECOVERS 0/L «nD JOURNAL 

0012 MEN FROM TAPE 

0011 >CN REoulRES SUIIUO, IMSIC 3.0, t RlKIFLO 1,0 

OOII ME* tXcCof a«u 

0010 EOIO 1000 

009] NEU 

tors «• suiRounms 

0100 ?«l»7 CHtl[l4>;CNI1<22i;CHM1IO);CM9IOl;CHMtl01 

0110 MEIUR* 

0193 REM 

0113 REM »F*0 TAPE, URITE 01SC 

0117 MEN 

0200 OPEN 41,11 

0210 SCM4TCM 01 

0213 MITE ll,*:R£N LCT IASIC 10 VMX 

O220 POMCl 10), 3*1 

0230 IE l4--l.JOtllltAL.0AI- THEN P0KES1O4.J31 lOOTO 230 

0240 IF II--1.BIRI51.J4C 1RCM PO«E(104, 70)10010 230 

0243 POKE! 104,11) 

0230 A-USERU) 

0240 IF 4.0 TME« 3M 

0243 IF «.| THEN IF 1-1 THEN 230 

0271 IF 4-1 TREM 290 

0210 PRINT -UNSUCCESSFUL RCCIUERf -lOOTO 3I« 

0290 PMIMI -H0R6 TAPE" 

0300 PtIRT -t NEEI -JI1 

O3I0 IMPUI -DO tOU UM1 10 TIT ACAIR'.AI 

0320 IF 41.-- IHEM 310 

0330 IF LEFTKAI,1)*-T- TBEM 1-1 iPOKECIOI.il 110010 230 

0)10 IF LEFTIlMI, !)■■■• IHEN IETURR 

9330 OOTO ) CO 

0)40 Pilar II ;- MECIVEREI- 

0370 RCIIIR* 

0993 REM 

0993 RIM PROORAH S1A4IS MERE 

0997 MEA 

1000 OOSUI 100 

1010 PRINT -DECODER OEMEMAl LESSEN tO>" 

1020 PRItT T«ll9i;-JOURa«i.';TA|l24i;'(JI* 

1030 PRINT TAIIiK'OI MEITMEI>;TAI(24i;*INI' 

1040 IMPIir Ml 

1030 IF II--- IHER 1M0 

1040 IF UFT 9lA*,t !••(• IHtM 1200 

1070 IF LEFTIC«4,II--J" IMEM 1401 

1110 II LET rilAI,ll»'N" 1NEI CHAIN O.HEHU 

1040 PI1RI '0, J, OR N- 

1100 0010 1040 

TI93 MEH 

1193 REM l/L RECOUCXI 

1197 MER 

1300 GOWJ 100 

1210 PRINT -I WEI 0LIEI1 0/L OH Ml* 
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1)20 INPUT MS IT THERE', Al 
lilt IF AI-" THEN 1220 
1240 IF LEFTXAI, !><>•!■ THEH 1244 
1234 Ifl.tlHIST.IAT' 

1240 OOIUI 200 

1270 CLOSE ■> 

i;!M ll«-|.OLRASIER,DAT" 

11*0 OOIUI 200 

1100 CLOSE II 

1)10 CMHIH O.HtHU 

lit] HEN 

IBS «E« JOURNAL RECOVER! 

I If? REH 

MOO OOSUl 100 

1410 PRIMT '1 NEEO OLDEST J0URN41 ON II" 

H20 INPUT "IS II THERE", Al 

14}0 IF Al-'* 1«€» 1420 

1440 IF LEFTtlM,HO->" THER 1400 

14)4 61--I.J0UIR4L.DAT' 

1444 MSUl 200 

m;o close ii 

1410 CKdlK O.HEHU 

0»01 HEN CHAH6ES SEO I IACR TO 1 
0002 IEK 0URIH6 END OF TEAR PROCEDURE 
000) PER C*/ra.0*T 

ono oper h.v.prn 

0020 REAR ll,V1,V2 r V),V4|U3,V4,V7,V0,Vt 

04J3 CLOSE lllOPEN ll,O.PRN 

0010 ICMTIH II 

0140 .2-1 

00S4 yllTf ll,VI,V2,V3,V4,V3,V4,V?,VI,V- 

0040 CLOSE II 

0470 CNAlH O.RENU 



0M2 
0411 

0*20 

oelo 

0140 
01)4 

0440 
0070 
0010 

otto 

OIOO 
0110 
0120 
01 M 
0140 
0)30 
0140 
0170 
01*0 
01 to 
02*0 
0210 
0»0 
02JO 
0240 
0230 
0240 
0270 
0210 
0290 
OJOO 
0)10 
0)20 
01)0 
0)40 
0550 
0)40 
0)70 
OHO 
0J90 
0400 
0410 
0420 
04)0 
0440 
1000 
l»IO 

OOOI 
OO01 
000) 
0004 
0003 
0010 
0024 
00)0 
0440 
0410 
Mi« 
0170 

ooio 

0040 
OIOO 
OHO 
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■(»! II [ID PARAMETER FILE 

PUNT -PUT KEU STSIEH IISC III 10" 

UPU1 'IS IT IN'.AI 

IF IEFTIU4, tl«>"T' THE* 20 

OPE* I'.O.PM.IAl 

fUlKI -«t44T 1$ THE HIOHEST ACCI f FOAi' 

PRINT 

mpui "Inmne aixts-.im 

INPUI "ACCIS RECUVA)IE-,V3 
INPUT "ASSET ACCTS',l>6 
INPUI 'EIPENSE ACCTS",V7 
INPUT h *CCT! PAtAHE",VI 
INPUT *>ET UORTH-.VI 
101 U I tOOO 

PRINT Ut;ftl<I«l;-|RCM(- 
PIINT V3;T«III0I;-RECEIV»ILES- 
PIIIT V4;IAIII01;"AIIE1»- 
PI1RT »7;TAII10>;'EIPEN$E- 
PUNT »liTA»UOi;"PATAI«' 
PRINT »9;IAI1I0I;"HEI UORIH" 
PRINT 

IF V4<V3 tNE» IF V3<Vt IMEn IF V4<¥7 TNEN 240 
OOTO 230 

IF V7<U6 THEN IF VKWt IHEN )20 
PRUT "INCORE NUSI IE LESS THAN" 
PRIRT lAIOIj-IECEIVAIlEI" 
PRINT T»II));-U«ICH HUS1 IE < ASSETS* 
PRINT TAII)>;'ETC, ETC., ETt." 
INPUT -PRESS RETURN ttHEH REAJT . ",11 
OOSUI 1000 
OOTO it 

INPUT '13 OAtA CORRECI-.At 
IF LEFT»IAI,11<>-T- TNEN 100 
VI*7t2lllV2*HV)*l 
Ml IE ll,VI,V2,V),V4,V3,V4,V7,VI,Vt 
CLOSE II 
OPEN Rl.O.PItAI 
.UK 11,1 
CLOSE 41 
iCSUI 1000 

PRINT -TOUR DISCS ARC Hllll* 
PRINT 

INPUT 'HIT REIURN. *,AI 

CHAIN O.API 

PRINT C4IR4ll4);CNR4[2I};CHRtlO);CNRI10T;CNR»(0); 
RETURN 

REN 1U11I A/P I 6/L NASTER FILES 

«t« /•/»*• «AJ 

•EN HAVE ACCT I'S t RAlAPtCES 

•EN •EAII 

•EN 

OOIUI too 

OOIUI 100 

PRINT -PLACE 6/L tllC ON 14" 

PRINT I4I(7);"A/P IISC ON II- 

1NPUT -ARE INET THERE'.*! 

IF LEFTIIA1,II<]-T- IHEN 20 

PI1RI -K UILl Nlll IUILI THE' 

PRINI -4/P RASTER FILES." 

PRTII 1PRIRT -ENTER TNE INF04hATTO»" 

PI1NT -REOUESIEI. UNEN fINtSHEt." 

PRIRT -PRESS RETURN FOR ACCT I." 



0120 INPIT -RiAPT'.At 

01)0 IF IEFTKAI,II4»-T" IHEN 120 

01)3 OOSUI DOlRCN OPEN FILE 

0140 OOSUI lOOOlRCN INPUT MTA 

0130 IF Pl-0 1MCN 180 

0133 If PK'I IHEN INPUT "ASCENHUI SEOUEHCE' ,Af tOOlO 140 

0140 UNITE I1,P1,P2,P4,P3,P4 

Oil! l>P1 

0170 OOIO 140 

0110 OOSUI 800 

OltO INPUT -FIHISHEO U1IK PATAIICS',A4 

0200 IF LEFIIIAI,!)-"'* TNEN 230 

.0210 IF UFT41A4,I)>-H- TNEN 140 

0220 SOTO 190 

0230 CLOSE II 

0240 Kill O.SLHASItR.OAl 

0270 OPEN II.O.SLHASTEI 

0210 40SOI 100 

0210 PRINT -HE IIILl NOV IUTLD I"*- 

0)00 PRINT -t/L RASTER FILE.' 

0)10 PRINT iPRINT -ENTER THE iHFOflHATTOH- 

01)0 PRINI -REOUESIEI. UNEN FINISHED, - 

01)0 PRIR1 -PRESS RETURN FOR ACCT I." 

0)40 INPUI -REAOf.AI 

0)30 IF LEFIIIAI, I KT-'T' IHEN 140 

0133 l>0 

0)40 OOSUI MOOiREH 1WPJ1 0A1A 

0)70 IF 61-0 THEN 410 

0175 IF *)<-• [HEN INPUT -A5CEND1H0 SEOUEHCE i ".AliOOTO 360 

0)40 UNITE 11,81,62,64 

036] l"P1 

0)13 IF SK«V4 THEN P'P<B2lOOI» )60 

OJtO IF 61 >V* [HEN IF 6K«V7 TNEN P.p.02iG410 )10 

0113 P-P-52 

0400 6010 )4* 

0410 SOSUl 400 

0420 INPUT -FIHISHEO UITN SEN UltER",AI 

0423 IF AM" IHEN 121 

04)0 IF IEFTICAI,I>--T- THEN 300 

0440 IF LEFTHAI,II«-N" THEN «0 

0430 SOTO 420 

0300 OPEN I2,APHASIEK 

0510 RENO 12,(31,62,64 

0)20 If E0F(2I>I THEN 310 

03)0 UR1TE 11,01,02,64 

0)40 P-P-52 

0330 OOTO 310 

0340 6l>"NET NORTH' 

0370 UNITE l!,tf»,P,6» 

03S0 CLOSE 11,12 

0310 OOSUt HO 

OIOO PRINI -TOUR CONVERSION IS FINISHED.* 

0110 PUNT tPRIvT v9;6»;' i-;-P 

0120 PRINT sINPUT -IS STSTEH IISC IN 10', Al 

04)0 IF ••■■• THEN 120 

0440 IF LEfttlAI, I ><>"!■ IHEi 120 

0130 CHAIN 4.STARI 

07t) RE* 

0793 REN CLEAR SCREEN 

0797 REN 

0600 PRINT CRR!tll»;CHR1122>;C4IRI10»;CHR4<0>;CMRf<0>; 

0110 REIURN 

Olt) REN 

0lt3 REN OPEN A/f 

0197 REft 

0»00 OPEN KI.O.P*- 

0110 READ ll,^l,V2,«),V4,V3,V4,U7,VI,V9 

0920 CLOSE II :RETUR« 

09)0 KILL I.APHASTER.DAT 

0940 OPEN II.I.APNASTCR 

0930 RETURN 

Olt) REN 

0493 REN A/P IHPUT 

0197 RER 

1400 UOSUl 600 

1410 PRINT TAII2I>;-PATAIIES- 

1420 PRINT tIRPUT -ACCT R-.P4 

I4J0 IF PI-*' THEN PIcOiRETURN 

1(40 IF A5CIP4037 THEN 1234 

1030 PIcuALlPII 

1010 IF PI<VI THEN 1270 

1070 IF P1<;VI 1HEH 1270 

1073 INPUT "DESCRIPTION-, PI 

1010 INPUT "|AIANCE-,P2 

IC90 P2—P2 

1110 INPUT "FATHER I l",AI 

1120 IF Al--- THEH P)-0 iGOTO 1140 

11)0 P)'-VAL(AI) 

1140 INPUT -PNT DUE DATE INNII OR l»)-,A1 

1130 IF Al— THEN PI-OiOOTO 1170 

1110 P4-VAHA4) 

1170 PRINT 

1180 INPUr "IS IAIA CORRECI-.AI 

1190 IF AI-" IHEN REIURN 

1200 IF LEFIIIAI I" THEN REIURN 

1210 PRINT "ENTRY IEJECIEI. 

1220 INPUT -IEIURH TO COHTINUE. ",Al 

12)0 OOTO 1000 

1230 INPUT -NUHIERS ONIT, OH-.AI 

1240 OOIO 1000 
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1270 PRINT "PATAll.ES ONU" 

1ZSC GOTO 1020 

I J? 3 KM 

U?3 REM 8/1 IXfUl 

I}»? Rtlt 

1400 GOSUB BOO 

1410 PRINT UB<l4i;-CEHEIIAL LEOOER" 

1420 Mill : IMP JT "AtCT l-.CI 

1430 IF Bit** THEN 01 -OiRETURN 

1440 IF «SC(5»(>37 THE* 1480 

1450 OI-VALIOtl 

1470 IF SOW THEN 1620 

1475 INPUT "DESCRIPTION", Gl 

14B0 INPUT •1«)LARCE" I » 

I4B5 IF Gl >V4 INEH O2>-02 

1500 PRINT .INPUT 'It ««!« CDKRECI'.At 

1114 IF «»■■• THEN RETURN 

T320 IF l{FTl(AI,ll""T" THEN RETURN 

1530 PRINT "EHIRT REJECTED. 

1340 INPUT "REJURR TO CONTINUE. ■,«« 

isso en id hoc 

1420 PRINT ■*/» ALREADY DOME" 

1610 IF SI-»» TNEN PRINT "NET NORTH IS BEING FIOURED. 

U40 INPUT •»«■.»» 

H50 SOTO 1490 

1 160 PRINT "NUMBERS PLEASE!" 

1»?0 BOTO 1510 



DISK MOOS 

Oavld Kyi I Irigstad 
640 HI I I view Or. 
Marlon, Iowa 52302 

Enclosed are a couple of items that 
may be of interest. The first. is a 
modification to minifloppy drives that 
inhibits the motors from running if tft* 
door is open. The other is yet another 
change to the mini drive bootstrap. VHIS 
ONE WORKS! 



Since the motor control line to the 
floppy drives is not a multiplexed lin«, 
all drives start and stop in unison. 
This causes undue wear and tear on drives 
not actually needed. The modification is 
quite simple and should be clear from the 
diagram. What is happening is that the 
bas« of UL is wins ORe-1 to a new switch 
that is grounded when the door is in the 
full open position. The current is very 
low so nothing elaborate is required. 
Purists may want to use % micro switch 
but will end up fabricating a mounting 
bracket that is harder to make than the 
clip itself. The goal was to require the 
absolute minimum modification to the 
drive. Soldering one wire and pushing on 
one clip seems to nine I that goal. Th-2 
clip I used was a piece of beryllium 
copper channel that <in its former I if* J 
uis a circuit card edge guide. Any thin 
metal such as hobby stire brass stock 
that can be bent with ease and will 
accept solder will do. The piece 1 osed 
was held on by its own spring tension. 
If soft brass is used, a smsll spot > f 
glue may be required. 



The next paragraph should demystify 
(except for why SWTPc did it that way) 
the interaction of the controller and the 
bootstrap loader. To boot the operating 
system from a MF-6<is compatible disk, the 
first two sectors on track zero which are 



not IBM format must be loaded into memory 
at $>2400 then control is transferred to 
♦2400. Much of the difficulty people have 
been having booting their systems can be 



traced to two things. fcarly l//ls h*d 
trouble reading non IBM format data and 
would produce a CRC i&rror indication ev**n 
though the data had been read correctly 
and the loss of drive select when the 
controller unloads the head. 



Kor those using the boot published 
in the FLEX (TM) manual which contains, 
the instructions LDA 13 C0M8EG AND & *OC 
BNE START, the symptoms of a bad 1771 
are a continuous cycling of the driv*. 
Restore - load head - restore - load 
head.... At this point, the user may hit 
reset and jump to *2400 Everything will 
continue as normal but will hardly 
impress one's friends or relatives. If 
you have one of these chips you have two 
choice*! trade it off to someone using 
entirely IBM format disks or take out the 
instructions mentioned above. SWTPc 
chose to do the latter as the boot in 
SWTBUG (TM> does not do the test. You 
should not encounter any problems reading 
any other sectors on the disk as they 
are IBM format (kind of). 



The second problem is a result of 
the i o terac ti on of the I /'/ 1 and Shugart 
SA-40«» drives. The SA-4O0 does not have 
a separate head load signal line. The 
user is instructed (by SWTPc) to strap 
head load to occur with select. The 17V I 
however. has a separate head load 
function. This signal is used to enable 
the decoding of drive selection CICS) on 
the controller card. No head load, no 
drive is selected. This apparently 
created a problem for the bootstrap 
loader contained in SWTBUG (TM) as the 
other half of decoder IC5 was us«d to 
force the selection of drive zero as a 
result of a hardware reset.. The 1771 
issues a restore on reset so everything 
seemed okay and in fact, did work. There 
are two problems with the fix. however. 
One is that it is not a good practice to 
load the head on m stationary disk as 
scuffing may take place. The other is 
that I have trouble explaining to my kids 
at home and peers at work that you should 
not remove or insert a disk when the head 
load light is on which, of course:, is 
true whenever the time delay has run out 
or a reset was necessary. The solution 
was to break the circuit between ICS pins 
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6 and 10. This was recommended by SWTVc 
in the form of an addendum (maybe only 
for those receiving WANGCO drives) to the 
assembly instructions and was the subject 
of a previous article in 68 MX&%0 
JOURNAL. Now. existing bootstraps either 
won't work or there is a delay of t5 
seconds after a reset. 



track zero, a DOS error 15 will result. 
If someone asks, change the subject- 



Hope this clears up the puzzle 
anyone experiencing difficulties. 



for 



The bootstrap program enclosed, 
addresses all the problems discussed and 
one other. It is in use on five systems 
and has not failed to work properly. 
Only a brief explanation should be 
necessary in addition to the comments in 
the program. You MUST clear the drive 
register to select drive • and start the 
motor. If bit 7 was latched as a 1 in 
IC8 as a result of power up junk. a 
program gone astray, inadvertent memory 
testing of I/O addresses. or whatever, 
the drive motors will not start - aver! 
With no drive selected because the 1771 
unloads the head on restore, the track 
zero indication to the 1771 is not 
present so it does the best it can. it 
issues 25b step (out) pulses at 2*ms/st«p 
(S. Isec. ) and sets busy. During this 
time, it will ignore ALL OTHER commands 
except force interrupt. Under thai* 
conditions, the restore in SWTBUG <TM>. 
in the F-'LfclX manual, and in the previously 
published boot, does not take place. so 
the boot reads from the current track! 
Hence, a fixed wait must be long enough 
to handle the worst case (the old "hold 
the door open for five Mi ssissi ppi s" 
trick), loops must test busy, as well as- 
ready (bits 1 and 7). or the hardware 
restore may be aborted with a force 
interrupt. I chose the last two. From 
here on. the program is unchanged except 
for the additional delay subroutines. 
This was my first attempt to fix the 
problem (without fully understanding it) 
and the TSC drivers had the additional 
delay, so it seemed like a good idea. 



For those that have not seen 
previous articles on the subject, 
breaking the connection between IC4 pins 
6 and 10 can be accomplished several 
ways. If you have a socket under IC4. 
remove IC4. bend pin 6 outward. and 
reinstall it in the socket. if you don't 
have a socket, you may either cut the pin 

6 lead off where it enters the board, 
(use a sharp XACTO knife and great care 
then bend the lead out to clear all 
circuitry) or. you may remove IC4. cut 
the circuit foil between pins 6 and 10. 
and reinstall the IC. 



One more thing 
is attempted within 



reset. 
22 



and the 



if a disk operation 
5. 1 seconds of a 
drive was not already at 



S»-«0 MttiriUTlW TO Willi N0T» 5TUTIIP HUH COW OMU 



■ M't lottoni towb h (Mil* or frool al»to to thot 
I "otol ciw •**■ on too nt* frooo oiioobTr fffiom btlo») 
tonuctl tt worn too dear tl fully 40*11. 

1M» port Ifcamt tfct »rw of ■ iwltco union 
CloW» mMm 1*0 d«0r II fully OPOA. IrowAdlnc. 
th« Gilt Of 01 tO InMOH Motor »t*rt-w. 



**" wlrt. Ptoco to tint It 4»M tiqt 
tntorloro with any movlna Dirt I or I ho In 




ISC ABttAtUK \AM I 12 
inVUI ML! IB fcX/1 111 
UUIPU1 FIL*l |* rCUl DIN 



lh Atdo.rtH.kK rAufc. I 



l.v.oo I*. Olto* SCfcAIUI bVfc.OOiA 



kUOl 



I/7/9W 
1/9/VO 



• !A?*OVE0 800t 1.1A1 ntQUIktS NO THICK* 

• tXAM nAN.i'wt.o.iluN aatu uuafct. mjim LtmrmnLEA 

■ ICO flU o-J.P CtMNtCTIH NhUKfcM NO LCWO CtxOV 

• II kNCUilNILklLU IWIfcM A NLbEl Dukfe MO 1 DtTENU 

• ON HANUMHC It* BftlVt WLSCtIOW OH TAACX <£ND' 



•y 


OmIU 








til ,r 


kOU 


♦flu 18 


tWlPc PORT 4 


IQ 


WO. 4 








IffMH i. 


tou 


DIStV-4 




1 1 


Hull, 








coriRk* 


kOU 


DISK 




12 


MOJA 








t4lpMiO 


ttAI 


■ !«■*•>.• 




1« 


iwib 








I.iiWi, 


kOu 


0lSk*3 




14 


4400 








Ul*.Kt 


kDU 


♦2 400 


RAM LOAD LOCAflOw 


16 


010* 










C»Mu 


40 100 




1/ 










• 








1* 


UIO<> 


4f 






MINI 


CLN A 




TO «CL«CT 0«lst JCHO AND 


I* 


OlOl 


► 7 


wo 


14 




tin A 


tmrm£C 


lMtVNft. MOKjfr GflWtrvP 


2*> 


U1M4 


•4 


DO 






LDA A 


MM 


cle:ar I77i wi thou r inromoTT 


21 


0104 


ft/ 


00 


14 




bli*i ft 


toifet. 


ABURlS HAMJUML AfftTlJ^ 


*'rf 


vll/» 


r* 


04 


IB 


LOOP 


LDA 1 


GMM 


S1AKT hCTOH AND «1 |>71 tlAlU* 


n 


OlOC 


C3 


91 






kti I 


• niJOOOOOOl MM H£Af> W HAT 


24 


<»HA 


2* 


1-4 






!■•* 


Looe 


U«IT 


A 


OLIO 


tt 


L* 






l i»a b 


•40000*41 


HH6tO>2. ylOl NtiAD LOAO 


2* 


OJI2 


1 J 


M 


M 




41* ■ 


IMM 




2/ 


tilt* 


III 


M 






|rw« 


[H I * t . 




Jv 


" H ' 


»4 


<J>, 


■ a 


LOOf>l 


LDA B 


MM 




£9 


01 JA 


CS 01 






•11. * 


■•ooooooa 




3v 


Ml IC 


24 


f4 






■**. 


LOOP, 


fit ILL eusv 


Jl 


oi ik 


/» 


WO 


in 




U.H 


;* i. hi L: 




US 


• 121 


«4> 


23 






•&M 


DfeLAri 




J3 


OJJ3 


14 


VC 






LIM • 


•llOOl | tot 


«tA4l*JLrifle cla*i> HKCUHSV 


M 


Ol2* ft? 


Ow 


L# 




»tA ft 


eoftMa 


W|1M |cj«Q HfcAO) LOAD OfcLAV 


3& 


OJA 


m 


Hi 






ftaJt 


M1UM1 




3* 


Ml.* 


t* 


M 


(JU 




L&l 


•*>t«U4L 




3/ 


ojjfi ca 


■ 




UftjPof 


ill m 


•UMOOO0 10 DA IA toflWf* T 


*i 


012P 


•■/ 


04 






w - 


LOT* 




** 


ojai 


•4 


(JO 


■ ft 




LMA 


UAiMO 


LUAS A 4VTE 


«K» 


ulH 


AT 


"V 






ST* * 


0. 1 


iwro Nt>0« V 


41 


out 


U* 








:si 






<- 


WW *4 


•o 


10 


LO0P3 


L tM. ft 


•CPtttO 




+ 


Oi#A 


C* 


01 






ii m 


tCOOOOOOO 


»U»V? 


44 


fl3C 


24 


fc> 






w* 


U00P2 




M 


o.x 


F4 


wo 


18 




Lft* ft 


Cuf*>0 




*t. 


t>MJ 


M 


M 






*ND > 


■ XOO4OJI00 If CHt Oft LOST SATA D»H 


* 1 


01O 


.( 


ftft 






WC 


nlm 


UO AGAIN - £L«C 


*\. 


OH» 


M 


M 


M 




JO» 


MM 


DO ftXnAlNEER FAOM DIOK 


w 


ot«* 


4U 


W3 




i«t.Avi 


•DM 


UELAV2 




■- 


«.♦* 4)0 00 




04LAV2 


ISM 


0tLfl¥2 




01 

b2 


OI4C 


J* 






* 




MINI 




tw* 


DRtft) 


MlhCTKI) 











'88' Micro Journal 



John Alford 

10000 Midlothian Tpk, 

Richmond, VA 23235 

804-272-2005 



THE CASE OF THE MISSING 
INTERRUPTS 

(PATCHING SSB DOS68. 51C ET AL. ) 

Those of us using SSB's DOS have 
one thing in common — no inter- 
rupts allowed. Any program that 
uses interrupts will die the bad 
death when trying to use the DFM 
portion of DOS. The consistent 
answer from SSB has been 'but we 
know the interrupt status is put 
back.'.' ' 

I found that they were almost 
correct. Looking at the code in 
FIGURE ONE, they save the status 
in address $C4CB and put it back 
by or'ing it with the status re- 
turned by DFM. As with any good 
try at programming, though, they 
wrote code that looked good but 
didn't work. Apparently someone 
forgot that or'ing will not mask 
a logic ONE to a logic ZERO, and 
that is just what must be done 
since interrupts are enabled if 
the interrupt masking bit in the 
condition code register is zero. 

By patching the code as listed 
in FIGURE TWO, the interrupt bit 
is properly handled by forcing a 
zero and then or'ing it with the 
saved status. Therefore, if the 
initial state of the interrupt 
bit was one it is restored to a 
one; if zero, it is returned to 
zero status. At last real time 
clock and queue-buffered I/O can 
be accomplished under SSB DOS.' 

The patches shown are for 5.1C 
DOS and a little digging may be 
required for other versions, but 
shouldn't be a great problem for 
most hackers to find. Our only 
regret is that we did not have a 
little more time to find the bug 
sooner. 
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DD69 07 TPA 

DD6A 84 10 ANDA #$10 

STAA $C4CB 

NOP 

SEI 

JSR 0,X 

TPA 

ORAA $C4CB 

TAP 
THE BUG IN 

TPA 

ANDA #$10 

STAA $C4CB 

NOP 

SEI 

JSR 0,X 

TPA 

JMP PATCH 

TAP 



DD6C B7 C4CB 
DD6F 01 
DD70 OF 
DD71 AD 00 
DD73 07 
DD74 BA C4CB 
DD77 06 

FIGURE ONE ■ 

SS69 07 
DD6A 84 10 
DD6C B7 C4CB 
DD6F 01 
DD70 OF 
DD71 AD 
DD73 07 
DD74 7E A04A 
DD77 06 



GET STAT 
GET IBIT 
SAVE IT 
IN CASE 
MASK INT 
DO I/O 
GET STAT 
HUH J II 
PUT STAT 
DOS 

GET STAT 
GET IBIT 
SAVE IT 
IN CASE 
MASK INT 
DO I/O 
GET STAT 
DO PATCH 
PUT STAT 



A04A 84 EF 
A04C BA C4CB 
A04F 7E DD77 
FIGURE TWO - 



ANDA #$EF MASK BIT 
ORAA $C4CB PUT BIT 
JMP $DD77 GET BACK 
THE PATCHED CODE 
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Keith Alexander 

661 Whltmore Rd., 207 

Detroit, Ml 46205 

I recently urete up an article m sine siifle 
hardware modifications which alien or* U irctnditiorr 
ally use either a 6889 or 6880 process** board in 
the SWIPc cowuter s.ysie*. 

I awlied it to m system this uxatr, uhen I 
Set ray '89 board* and ford iut that I wouldn't be 
afcle t» siwely switch fcack and forth between prtcess- 
•rs by just switching boards. As all SWTP '89 owners 
Vhch, the supplied finrwarei 58UG-E, addresses I/O 
at JE988; cowered to $8888 in MIKBUG and SWTBUG. 
This problem is cowounded by the "hard-wire" decoding 
on the ifctherkoard, also placing 1/0 at $8888. 
Anyway after writing up the 'fix' article and 
natsinS sketches and so on, 1 realized I wasn't telling 
the whole story. I'd ftrsotten all about anither tod 
I'd aade earlier that really oade the second or* poss- 
ible. That (acidification was toward 'tightening up' the 
I/O addressing if the SWTP rjothertoard , so thise eight 
slots resPKid to exactly 32 unique news addresses. 
fls you knoui the present circuitry dtesn't fully 
define the 1/13 addresses* so they're spread mt over 
4K «r 8K> depending on which aether-board you have. 

Consequently. I realized that what was necessary 
was me rather long article or tut shorter ones. 
The 'tightening' idea uasn't m own. ,ust the ■etlr 
od of inplecehtation, and I give proper credit (I 
twe) in the actual text. It alone it worth doing, 
even if you aren't trying to relocate I/fl. It frees 
up a lot of wasted K«ory space for the user. I first 
discovered a need for it uhen I started playing 
around with the addressing circuitry on SMTP 4K and 
8K aeaory boards, trying to rut the* above 18988. 
!3 



WE HAVE A 6809 FOR YOU 



POWER SUPPLY 

Modular plug in construction with computer grade 
filters and a 25 AMP rectifier bridge. Blower 
fan is standard equipment. All con- 
nections to the power line 
are beneath the 
safety shield. 



INTERFACE 



Convenient serial or parallel I/O cards have DB 25 
connectors mounted directly on the circuit 
board. Up to 16 interface devices may 
be installed on the address decoded 
I/O bus. Programmingstripsare 
provided lor input and out- 
put baud rate selection 
on each port. All 
outputs are 
fully buf- 
fered. 




CABINET 



PROCESSOR 



Rugged 1/8 inch alloy aluminum 
base plate combined with a solid 1/8 
inch alloy aluminum cover for unsurpassed 
protection. All interior metal is conversion 
coated. The cover is finished with a super tough tex- 
tured epoxy. 



The world's most powerful 

eight-bit processor, the Motorola 

MC6809. plus 2K byte monitor ROM 

that is 2716 EPROM compatible and full 

buffering on all output lines. Built-in multiuser capability, just add I/O cards to operate a multi- terminal system 



MEMORY— You can purchase the computer with either 8K bytes of RAM memory {expandable to 56K), or with the full 
56K. The efficient, cool running dynamic memory used in this system is designed and manufactured for us by "Motorola 
Memory Systems Inc." 

PERIPHERALS— The wide range of peripheral hardware that is supported by the 6809 includes: dot matrix printers (both 
80 and 132 column), IBM Electronic 50 typewriter, daisy wheel printers, 5-inch floppy disk system, 8-inch floppy disk 
systems and a 16 megabyte hard disk. 

SOFTWARE— The amount of software support available for the 6809 is incredible when you consider that it was first 
introduced in June, 1979. In addition to the FLEX9 operating system, we have a Text Editor, Mnemonic Assembler, Debug, 
Sort Merge, BASIC. Extended BASIC. Multiuser BASIC. FORTRAN. PASCAL and PILOT. 

69/K Computer Kit with 8K bytes of memory $ 495,00 

69/A Assembled Computer with 8K bytes of memory $ 595.00 

69/56 Assembled Computer with 56K bytes of memory $1,495.00 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512} 344-0241 




7^ BIG 



State of the art "Winchester"type hard disk with a data 
storage capacity of nearly 16 Megabytes, makes the 
SWTPC 6809 system the most flexible as well as the most 
powerful eight-bit microcomputer system in the world. 
The intelligent controller, using DMA data transfer, makes 
maximum use of the "Winchester" capability. It is com- 
pletely compatible with the F LEX9 operating system used 
on the SWTPC 6809 floppy disk system. 

CDS-1 "Winchester" disk drive with controller. .$3,99500 
Cabinet— matching our 6809 computer desk. . . 150.00 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN AIMTOIMIO, TEXAS 78216 (512) 3440241 



Having Just uritUfi a short article on how to relocate the I/O address space ffi the S/TP ibotherboards, 
I w« reminded of a basic dilewusa in this area, and how I have almost taken the solution I've iw-leaented for granted. 
The dileiwa is that the addressing of the I/O address space on the SJTP mother bus is rut cwleteJ that is* 
it's not specific enough, all bits are not defiried. what happens is that each I/O slot doesn't iccupy f«r unique 
addresses, but a rarde of groups-of-fitr-lications. kr*fi referring to the lowest address of 1/0 port 1, for exauple, 
you could Just as easily refer to $9FC4 as $8864 (on the flP-6 withertoard), or «*> $8784. They're all U* 
sase third as far as the present decider circuitry is concerned. 

I ford this "fix" in an article by for. Earle Hilton in IMTERFflCH RGE magazine, the Sept. '78 issue. 

The idea is to positively defir* address tits fl6~fl!l (or through fll2) which are all 'don't care' bits presently. 
(**ther the fll2 bit is defined defends on which aotherboard you have, -B or -62. 

My iw»leiteritatiori rehired or* foil cut on the bitto* of the motherboard, attachment (by "piggyback" technique) 
of two cheap ICs, and s*» wire wrapping. And, of cour-s*, soldering. Which brirds me to a few caveats. 
Use a snail soldering iron, »r a snail tip. Hopefully, you will never have to solder anything smaller than 
38-Sa. wire-wrap to an IC fin. I've beer, thinking of hirird a highly-trained sard of fleas for Just 
this sort of work, arid urider n# circumstances RIDE in anything enclosing this (handy) ccrtstn*tion tKhni<ue. 
Vcu should solder the wrapped effractions to IC pins because they dm't held a wrap like a square post. 

Vhat you can do is lay down your added 74LS82 and 74L538 Cor LS29) right or> toe of two existing 
14-pin ICs already on both wtherboartfe , ICs 4 arid 5. First you Bust carefully bend up all the pins except 
power and ground, usually 14 and ? (or 16 arid 8>. Those bent up should be bent dose to 188 de?«es, while power 
and ground should be bent inward Just enough to be sure they'll grip the corresponding pins of a similar 
IC they'r* "piggybacked" upon. Solder should carefully be applied to these two Jiints. Vou don't need to press 
the guest down into tr* host's socket tr hil«.. Just a polite uwoching, thank you, arid a dab of heat and solder. 
Passing wires fron the address bus to the ICs can be accomplished usird several available feed-thrus in the area. 
I used three right in front of existing ICs 4 A 5, also f*ar R12 m the If-B. Each readily passes three 38-ga. 
wires to get the adchess bits off the bus, arid the decoded iub»ut lead to Pin 4 of IC-6; all accomplished 
with additional carefully soldered cffTiectiff>s to bus pins or IC pins on the bitUn of the motherboard. 
Believe it tr net, I fourd it fairly sivle t* wrap wire to upturned IC Pins with a standard hubbyist wrapping toil. 
Four tr five wraps arid (sore are easy. 

Nit* the differences between -8 ard -82 corrections. On the -82 motherboard, R12 is defined by IC-6 
already, si pin 2 of the 74LS82 should be conriected directly to jround instead of fll2. 

Earle's design used a 74LS20 four-input NfJC where I substituted a 74LS38, sine* I had one. This 
is an eight-input HRO, so I tied the inputs together in pair's to sate the rewired fw inputs. 
If you use a 74L528, you ii«y use pins 1,2,4 and 5 as inputs with pin & as an outfut, or pins 9,16,12, and 13 
as inputs with pin 8 as the it/t»ut. Also, be sure to use 3ow~power logic for the quad NOR (-LS02), since 
it's connected directly to the address bus. Ihis chip is sold as a HOR, but is drawn here as it functions! 
ftC'ird seven tr eight inputs that shtuld all be low. R MIR gate is equivalent to an AND gate with active- 
low inputs. 

This article will describe a method by which tne nay scdify the I/O addressing schete if his 
SVTPc notherboard, making it switch-selectable for two ranges, thus enablird unqualified use of either 6899 or 
6889 CPU boards. 

(ten I first ordered icy CP-09 CPU board from Southwest last spring, I anticipated possible compatibility 
problem with tv 6809 system <rt>-B motherboard, not -B2; and rP-fl Processor, not -fl2). 
The Problei was that the 6809 Donitor provided with the board, SBUH, addresses I/O starting at $£890, co^ared 
to $8898 in the previous 6800 writers I've used, WKBUG and SUT8UG. 

frr t^ZS^ *££tL? 0r ^T in3 ff <anrf te MflF " 1 n**™"^ «*r the heading "Ne«rs ta» 

-t^L ■ ? HfJ^ 9 %"* ir,£trtJctl0ftS - *** «»l»in that their suggested iods rewfer the syste* irco»atible 
with the original tlH\ and -fl2 boards using MIKHJG, SUtbug or DISUG. In tCher words, trrow out all your 6898 sofUa* 
Or c» up with soup 6899 fimware (read EBMN) that addresses I/O at $E090. 

ftn alternative they offer (to BainUin cwatibility) is to copy the provided firwar* onto a 2716 WPROtl, 
changing two bits at address $FF79 (fro. SF1 to $F7). This still 1> liiits proramable ««ry capacity to 
48K (coopared to 56K), 2) liiits the systen clock to 1 Mb, and 3) allows only the If -68 iinifloppy, 
not the 8-in. OrtflF. Besides, not evwvue has 2716 burning/erasing capability. I do, but didn't feel like tying up 
a $49.88 £PR0H for the sate of two bits out of 16,384. 
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SWTP Mrerboartj I/fl Address Decoding Circuitry 

Tl* address decoding for the eight It) slets m the StfTP tffctherboard is done by IC-6, a 74S13S 
cne-out-of-eiaht decoder uhich decc<tes three inputs fl,B,ard C» and trail**, (active lew) on? of eight possible outfvts, 
c*rrtcf«rdiri3 U possible binary inputs of 000 to 111. On tr* CP-B beard, fl,B, arid C are tied U address lines 
R13, K14, ard fll5, respectively. The selected tulwt (wly one has an wtput trace on the PC b»ard) 
is pin 11, the 'V4' tutPut, s* called because it 9oes lou uner. the tlree irtuts e<*jal binary 180, or for. 
In actuality; fu-ther detecting is dene by IC-6. On the MP-8, address line R5 is tied to the G2fl enable of the 
chip (active low). Ms «*ans to select I/O, address line R15 nvust be hi*, arid fll4> 813, and fli Bust be lou. 
Only this cenbinatien uill send V4 lw> which ever-iUlly enables the 8 I/O slits. Binarily, Uiis is 188k xoooc >e<8x xxxx. 
The x's are don't-care bits. 

On the MP-K, the sag* chip is used, tut the three inputs are address lines A14, A13, and fll2. Tf* only 
output with a trace connected is pin 15, 'V0'. Furtherwre, address lines fli and f!15 are tied U the 
G2fl arid Gl chip enables (active lou ard hiah, respectively). This boils oWi to IC-6 enabling I/O only 
when addresi. bits 5,12,13, arid 14 are low ard R15 is rriah, Binar-ily this is 1800 xxxx xx8x xxxx. 
This resulting difference between the If-B and -B2 n-eans that the B board decodes I/O frc* $8690 to $8B1F, 
tut unfortunately, also frtta 18849 to $805F, ard 13988 U $889F, ard so ort, risht up to $9FC8-$9FDF ! 
The PIP-6 deciding schef» istwes address kits fll2 (thus $3868 works Just as well as $8880), and A6 through fill, 
ic a whole lot of memory space is wasted, lite 8K less 32 bytes! The addressing Just isn't "specific' emu*. 

The -B2 scheme, "locfcin* fir" 814, A13, ard R12 = 000, won't decode up into the $9089 ran*, but still 
ightres bits A6 thrtuSh All, so it will also do a "wrap around" decoding of I/O: $8248-$825F mill 
loo)", Just lite $80W-f831F. Right up t* $3F13-$SFDF, £4 wt tr less mly 4K is wasted. 

Hew to rectify this., ard recover 4 to 8K e-f rencn space for your- use, I'll save for another article. 
Here, for purposes ef wins I/O free $8089 to $E0G0, we're only concerned with address bits A15,14,aid 13. 

The trick is U use a SPOT svitch to select either of U» possible outputs frc* IC-6. 
The following ictd requires an X-ftto knife (for cutting one trace on the K-thertaard), three 
lengths e-f fir* Hire, (30-Sa. Mire-wrap vould do), and a SPOT switch. 

First, the flP-t. After renovird the iMrtherboard frtn the chassis, turn it over ard Itcate pin 11 of IC-6. 

It's tl* only connected pin on this side cf the IC. Cut the trace riant next to pin 11, breaking the connection to 
IC-5 pins 5 and 6 (another trace branches tff t* IC-3, pin 4). Next, locate pin 7 of IC-6. This is the 'W outwit, 
which goes law when A15-A13 e^tal binary seven, 111. These are the upper three bits of $1880. Solder a wire 
U pin 11 ard another to pin 7. Connect these to either side tf yeur SPOT switch. I Hunted nit* on the rear 
panel of the cabinet, between the 'D' cjrrector l»les. Tt* center pole of the switch should now be corrected 
to the ether side »f the cut trace near IC-6. I siwly tied it U pin 5 of IC-5. IC-5 pins 5 and 6 ard IC-3 pin 
now 3et their 'low' from either- IC-6 pins 7 or 11, enablird I/t at either $8080 or $E880. ftt the flick of a pinkie. 

On the lff-82 motherboard, Ue two IC-6 iutputs will be tt* existing 'V8' at pin 15 aid the 'V6' ouUM. 
on pin 9. This latter pin s#es low khen A14-A12 e^a] binary 6, 110. 

Cut tl* trace cemira fr«nt pin 15 of IC-6 right next U the pin. The other side of this trace flees to IC-5, pin 
12 and IC-3 pin 4 Just lite the h?-fl. Rfter the trace has been cut, correct the two sides of the switch 
t» IC-6 pins 15 and 9. Connect the center pole of the switch to the other side of the cut trace, 
either riaht at IC-5 pin 12 er IC-3 pin 4. IC-5 pin 12 has a feed-thru corrected to it, so you could conrwt 
there, if you prefer. I reuted ity tiree wires under tte BOtherUard t* a swiUh mounted en the rear panel, 
rewiring leads about 15" lord- but this is entirely «f to the user. 

How, «w CPU can be changed frtn 6808 to 6889 in ahtut 38 seconds, siwly retwird the 6880 processor board, 
disconnecting the old Manual Reset leads fro* the RESET switch, attaching the lf-89's N.RESET leads, 
cimectirifl the leads to tl* board, the board to the bus, flick the 'wstery switch' and G»! 

82 er rot B2J 6880 or 6889, there no longer is any <?jestion ! 
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••»•» CLASSIFIED ADVERTISING »»»»» 



Applevalley Day School, Inc. 

Offering Our Own Business Software 
In SWTPC Olsk Ver. 3.0 



»B00«*MM«Bi 
■IICMAflDO. CJtQLS 



11103 SacjaPA.h Lana 

Fto-iiton. T». T7O90 

713/481-3S96 



Sell Selectrlc Typewriter, Interface, software for 
SWTPC, J600. Teletype Model 43 J800. Peter Stork, 
Box 209, m. Klsco, NY 10549. 

For Sale: CT-64 Terminal, CT-61 Graphics board, 4K 
memory boards, RT-68 Read-time OS. Call Charley 
Snodgrass 319-393-9394 

SWTPC 6800 System with 20K, AC30, CT-64, Software, 
J650. Steve Riley 916-332-9316 
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For Sale: Adam 3 40K, MF-68, Teletype Model 43, 

•./Documentation. Oave Matthews 619-870-4208 
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■HUM LLI IHt IftwMlNM (|lHk CHAHt; TKt !.p|([| Of \Uf llihHJl*M. 

Ii*. ftti^ Pdl-IAil ImI ]A( F Mt|«tii|h u mi niikts l-.Af-f.nl lilt 
AMI) fM-ClVIM tVtl* . WVr, 1-0* »1£ UN 'HF Alt.. Ut 1 Aft S-*kI Sltnl 
t)LS AjMU SOHl r-KlKAA/it . 



h- imj oi bam •! ( 
M4 I ISI Il4i.t 
rvLMNtUlCK UA ♦V.Mfr 



&f t^L£f 



1I2S I^il* Olvt> 
Cincinriotl, Ohio 4iZ37 

H rcbt-uaiy LD60 



•*8* Mtctc JtNunal 
M18 HaniU NowS 
P. O. 00x843 

Hiwori, Tcrviflisee J73'Ji 

GontlDmori- 

Wiih regard lo mv mUclfl "BookKocping" In CetfMHtyt 'hi' 
Mtc/o jAurnal. ■ («w linea woro in«<-v»icr.ily on.Liu<d in the 
pa*ie-up, ackI I mttde l«vo fcofs In th« convcraion ••X'.ion, 

F^4« 2i* cvluim one. in»«rl ■([« \bv »«cood llnv: 
"Hotwevef . no »y sLtm. 00 o»iw ^o^' Sccutaio, will h-r u«cd... " 

P»g* 12, column on*, the .hint f+ittqjaph tron th* battaw 

". . .bock into .he moiriK (thaws tl) . The di»Advanl«go >i .n»l you 
fIAw lo know i ho account mtmfcAPT. ao ko«r> your Accounl chnrl I.Aitdv. 



29 






P«uv 21. column, twe, the <Jc«ur*ilwi tlrivo ia omlmid in the 
BBCOod iaat pdr^qrayh. 

•COfy.O.LXCC.CMB.I 
COPY, O.COPY.UMD. 1 - . 

There arc eluo (wo ixdlny errtwi in the BASIC pwjticrji, as I 
dLaoovDred 0t VtrAr-^nd. Insert Uj chance): 

CASH. HAS: 12SS ir « 4 THIN M - WOO 

I34J If D >I23I TKW D - n - )200 

CPICT.BAS; l*3tl IF P >= OTHCN PRINT- PH()[IT FOftYtAP. $■; 

ThenSi you Iw ytlrA ine the onlclt... «nd Ltjet'lny lis all up us date 
with olhor dwiHuamcnts in irtt 68KX world. ; , 



William ft. Sm;k 



William K, 5lr*;* y- 






E. B£/?G PUBLICATIONS 
622 East Third 
Kimball NB., 69145 ,. 

Ike January-ileceir.be, r 197? PEMOMCAl ilt'.W. FOU CWPUTtRlSTS Irenes 

i I 

ovor 2000 articles from 2D oerscni] ctwjjuting and professional electronic ' 

'■ ■ ■■ 
»ulpl1«tltp»l. Article*. edlUHt.1;. boo! >*»tc« and Idlte'l frw reader! 

which have relevance to the Personal Coroutine- field are Indexed by 

svbject urider 110 categories. A Hit of the authors ts crDSJ-referancerf- by' •> - 

subject to aid In locating articles. The BO page toot Is available for 

1S.9S frcn E. Berg PilHnuinSi 62! Cist Third. Alnboll, HE »14S ir from 

Ideal computer stores. A frs£ brochure which describes the book In sure 

dotal! ts available on request. Editions comring 1976, 19?r . and 1978 ate 

avail iMe for .S.OOeecl. SOME BASIC QUICKIES 

David Eagle 

3330 S Garland Way 

Lakewood, CO 80227 

SOOO REM SUBROUTING CUBIC ' 

90OS -KM 5R. I'l iOM OF THE CUBIC EOUAUON 

5010 REN A«X-X-X ♦ B-X«X + OX ♦ P ■ < 

3019 REM INPUTS. EQUATION COEFFICIENTS. A. IT. CO 

502O REM OUTPUT, ROOTS CF THE CUBIC EOUATION. X1.X2.X3 

503 S REN 

5030 P- 8/a:0- C/A:R- 0/A:E- 1/3 

5035 A1- (a«0-PtP)/3:B1> <2»P«P»P • 9»P«0»27-R )/27 

soeo Oi- ai-ai.ai/2?*bi -bi/4: if abs(di) < ie-io thEkoi-o 

9045 ON fKSGNIDU) 6010 6090. 9010. 50BO 

9090 E0- 2»SQ»('A1/'3)L:C1--Bt/(S-S0R(-AI-A1-A1/27)) 

9099 St- SQR(1-C1«Cn:G0SU6 9000 

5000 II- E0»COSK>l/3)iZ2- EO«COS(P 1/a»2«Pl/3 ) 

9069 23- E0-COS[P1/'3»4-Pl/3):GOTO 5095 

50T0 XI- SqN(-B1/2)*(3"AB5(-B1/a)-E) 

5075 23- SCN<B1/2)-<ABS<B1/2)-E> Z3-Z2 GOTO SOSS 

9010 T1- Bl/2»S0R(01):T2- -B1/2-S0K 101 ) 

sole 21- scN(ri).(ABS(Ji)-e>.scyj(r2)«<ABS(T;i-jj 

SO90 PRINT -XI REAL. X2.X3 COMPLEX' 

5095 XI- 21 P/3:X2» 22-P/3:X3- 23-P/3: RETURN 1 

5100 REM 

9000 REM tttuy SUBROUTINE 

9005 REN INCUTS. SI- SINCPO, CI-COS(PI) 

9010 REN OUTPUT. PI- ATAN3( S1/C 1 1 . 0-< PI *-3»P! 

9015 IF ABS(SI) < IE- 10 THEN Pi- OlRETURN 

9020 PI- <2-SGN(SI>)-PI/2; IF ABS(CI) < IE-IO THEN RETURN 

9025 PI- P!-»SBN(Sl)«SGl«(Cll«<ABS<A1AN<S./Cl>> PJ/21 RETURN 



(J 



90OO 
9005 

90oe 

9O07 
9010 
SOI 1 
9012 
9015 
901B 
9020 
90S S 
9030 
9035 
90 3B 
9040 
9049 
9090 
9055 
90BB 

«o«o 
BOM 

»O70 
907B 
90B0 
90B5 
9090 
9120 
« I20 
9130 
9139 
913B 

30^ 



REN OLUTION OF SYSTEM OF LINEAR EOUATIONS SUBROUTINE 

REM INPUTS 

REM MATRIX A. M ROWS BY M COLUMNS 

REM VECTOR B. DIMENSION M 

REM OUTPUT 

REM VECTOR X. DIMENSION 1 « ' 

REM SOtUTIOM TO SYSTEM. <AJ«X- 6 

ON (2«SCN(M-N)> SOTO 9010. 9040. flOBO 

REM 

REM UNOER-OETERMINEO CASE 1 . M < N 

FOR l«1 TO WlFOR J-1 10 M;S- O FOR K-1 TO N 

S« S»A(I.K)-A(J.K):NEXT K : A I < 1 , d ) - S 

NEXT U:NEXT 1 : OOTO 9099 

REM 

REM EXACTLY 0ETERM1NE0 CASE. M • N 

FOR I-l TO M:POR J-t TO N:AKI,.J). A(I.O) 

NEXT J: NEXT 1 

L-M:L1-M»1 :FOR 1-1 TO N A l( I . L 1 )-B( I >:NEXT I: OOTO 9090 

REM 

REM OVER-OETERMINEO CASE. M > N 

I- M:LI- N+1:F0R 1-1 TO N: FOR J-1 TO M:S- 

FOR K-1 TO M:S> S»A(K.I)-A(».J):NEXT « 

AKI.d)- S:NEXT J:NCHT I'.FOR 1-1 TO M:S-0 

FOR K-1 TO M:S- S»A(K.I).B(K):NEXT K 

• Kl.ll)> S'NEXT I 

SOSUB «I40 

ON <2*S0N(M.N)) 0070 BtaB.013B.B13S 

FOR 1-1 TO N:S- 0:FOR K-1 TO M:S- S«A(K. I >«A1 (K, LI ) 

NEXT K:K(1)« 9: NEXT I: RETURN 

FOR ]•»! TO N:X(])« A1( I .11) NEXT I:R(TURN 

REM- 



9140 REM VOOK1N0 MATRIX SUBROUTINE 

9145 FOR N1-I TO l:I»" Nl 

9150 FOR 1-N1 TO L:IF ABSIA I ( I .Nl )} > ABS< A 1 II 1 .N I ) > THEN 11- 1 

9199 NEXT I FOR J-N1.1 TO L10- All I 1 .U)/A l< I I , Nl ) 

91«0 Altl1.it)- AKN1 . J/-AKN1 ,U|- OlNEXT J:Alll1.N1>- AKN1.N1> 

91«9 FOR I«1 10 L:IF 1«N1 OOTO 917S 

9)70 FOR K-NI TO Ll:AKI.K>- Al (i.K)-AK I ,N1 )-AKN1 .Kl ;NEXT It 

9179 NEXT ItNEXT N1:RETURN 



.Sfi*. , w;..i?f ".;;..-. 



ifciV 



If**. 



•V /i , f.i .»'S i <v - 



[<u«tul4'-I1roiiaol:eJii-^ty^ ^v 
?970 Radon 



>■*■•'■' ' -.'at'.-.-.' ■■- 



-hoi'A>'IItt J. L*'tmirtnd *nr1 .nlo.l [| ..uT>. -:iK- -nt- m , . , «(fJC,ti(rV''-f-.' <'. ; 1 1 ' 
It.nV'bfw' bj'Viir.v ti|(t.rt;n: I In ... a.c cii.c. i i-.? \i.' <•'..<)? V-'MW' 1 
in onl.v one ^stAt^ii- i r-z-i ( l-.i-1«1) >«#.! -.. Lc:-u:tiii. w- 
ncvtivN. Y'lV ti1C?C n^lite.jlt 1 Ik .'.. sikk:.iI "I it'. " ....1. la' 
(ieUte^ r ,svi|l>,. 1 yntUu,ii;»l|t,v| |^J^ l»>'li e.,,v*-«;-. r ..si; fimu; i .. ),•;'■' 

t )l*1»«*i»; W=% 1-4JF9 (In^BjIA; "!.; *fifMI «••«*. MaM, 1» >'1 <1 .Ir,. '. . 

tl.c -jt;itcr<tit •':■' tl.e L-««f si J'iny'it". Vlte v*-^u V < riv Sl;^ .<(,<* 
tilkZIC if e.-j, Mjj li.iuo: 

*£iZ6 j, u &iM ^eyp.iq* „ ..- M . I...- l.ii-.-„ Na-'t I : ■ i ,■■ ■ •ift"' 
f*32*... . i; >. M\ii i0~;,u. .(>,■;„,■£•. (i- : l a. c .-.«*i" 

rtt« (lilruunu 1AM It! tht ii.;:c.i. ,i Llic rVt't! I -»VjA'U^«,(;x ,' ...i 

routine, tLc aure.i..a 1*/Z tilt: InliiL-. Ii..tittl jtMJ- tMitiTiir. 

11 yoii uue ttitr KT-W«' UonttOI lr. ft i.,.i. ?.Ht:„i t f>00 n a., i ti'i- 
eytrtca and ffltl.jut u rl^*. 1. e^i.tcttt:- in U I T'lvi.. / i, rvV- hmVi: 
ti 1 1T Kip .' 1 1 C3 wl ir, ,.:»TI- -..IUjiv mrlc .1 Lfiu EMI- I. ASIC . ' - 
Vers. P. 3 - Ail IM,.,'.* in** ,'vihr' ucj I dUi'irtfjt chit .-.oi\i\'H , 

51' tllL' clia^«Llc- :<cuul*H'ta f'.-r t>J'ut;i.ajr, :'L..i.:n^. .^jw Ar;lA 

toy tKe cansetie- luteiJ'iUrij .■ t iM't (i.-iif«wi). Uie 

eujitrol 7IA (it % ct$\ <?.'rtr*l>. Kib i-utu ti'- :i-!.(.|. 1 • -l ■ ■■ 

noniitic tea.fcj ielay l«;a^.^ -»rw JJIA (i!j./ V 1 iiTt'Jr AUb; 
C3Z = 1 : w^j.^'tui." '."; jj, , ' ' 'I 

CLivt^SnPt. t*.c BA$11*~''Pr-' I'.lrc.ri uii<J ddli.'^: Ur "3-VI'rt. :'i.:,c1m; Jvtt. ., 
con i-xifi cun£Ctl<?_ Ln-«,j! h'ith tlic ■'<«*«, «:iH -S A VI: (»(?■'. T:ir 
raiKiel te'«0a.>taer'«;ta:';)7,. iitj.>««i ilflj :*lr:hj ajua-tkl ull>> 



.;i . 



0013 
0C1IJ 

^ -if 
*»0 

Bdu tine 

iy»j 

1TO5 

lmu 

IPSA 

ipat ■ 
iKff 
IF72 ' 



1 "SE 4« :<S 
Alt I f 



i7k )pjr> 



.'fl LlHV t. 

TO IFBi 
r-1 ^1 



ii- 



tcf 



72 'JT*73 



TAl*t-P 

, ■'* ti:i.,?'fc *? . if - JTSFt iia.tr 

8G HI LiiilA nt-.-i 

V? Ik*? !>!;;!( 1 J:^r 

'1 9E 44- • 1 .iCa I i|R 

1 'a, jys. T*p. . tt'x *A«I 



.1AP rAI1?fF 

> . 
n H *Pi:'. 

ACItliT ' 

flni-i ott ■ 
Putija t.i'l' 



' 



' 



■ , . . 
- 1 







"*'.:>i ■ i - r 

11 1 At 1 


.^ 1 

. ■ 




Change 


of WFt, 1 'JJlS 1 »nd l 1 *!!;? 


.■1 1 
I ■•• ;.ti 1 1. 




IB2C 


- J '!J " • ,r(f:i)T 




IE?B 


c6,.i'j ,' i.-iV.A ■' 


ii-M ^ii >. s>* 1 1 < ii ; Ef? . <j 




5li_<i - 


' ' XI M 


STAM ».¥ 




ili.k' 


CS S4 1 1 . ... 


i.-'*a , ml si Taw>««F* BK -4 




it 1.1 


/> *<j • ■ ' 


F*» cri.v. 


90 


Its* 


l't> Kj u ./IK 


js:-t ii.i-YfK y 




IS 19 


'J 4 ■/>' 


Aa.iA «(.T 




ISIS 


S'J 


K... 




iKii; 


F( 1^ /'■' cr^,\> 


arAi> ',-.to 




ie ik 


H . 1 


.hii.1i . ,. 




1BA401 


111 


«w 




ifj.ii 


•,*! 


■ 

lion 




1*4.' 


>? I'<5i)-0T 


1 :;iik 




U-ld 1 


CI elf) W 


iLX HrVKHajJ 




I2(b 


61 '1 


UiirA *tl t , Xiud en 




'T*U 


/T 1* 


bK(i .; TI. 1 






.'6B' Wtaro JourrnJ 



1141 . j •li'iJ ■ C»C* Hale . .Funoe ofc 

.... iltnuci w*"Vt ■'<■■' tio <tKi' ,'-c* i '. ita»SH'» 

'■* v • ula Juo kj»b ^ n» "'■ « j .-. 

IC4E . i -. i.,»V..I4 (mi <( «f. 't;*** »tH -ftluefc > IT 

12%; l II OIFA »*13 Bead.*!* 

,K4 ,o*:>« ' ' IS- * ? ' l 3 

II5» [Mil I) '-Ti~ Ml ... bin 

1K7 ' • 7f f it W wfieii- 

1157 T» «,! »l> , ,-w;__ T'lj" _. ., jjrtt 

IIDk C6 14 CHI LIU *tl* ^UtttRTS.B 

mc n m »siab 1,0 ■ acia en 

1KB lui n Co, JO. ifli VU.'i LUAB »«C T»f* « CH2-1 

..,« •! tfffl "'•■But!'* " " "^TAF 'XJ7 CRt> 

11(2 „iirj,.i J+..P8 *>** OTLtj 

,B64 ' tl. I IfBU ««9 S.t,.1t,ilfB.l 

1B66 *7 00 STAR fj JiCU CTL 

iRfcfi -4 ft HRA CTV 

1C6A #1 tfl *l NOP 

■ i 
. -. ' ' 

mm - 1*** 

If you have over built, yourself a wmcrybDard in a wlrc- 
*T»pjitn£-teci nlquo or by ealderlrtf vary thin, Insulated 
cnMea. from ur.u *»ln lO the 0th.er p you ttsy Ubvc to teet i - 

It. a to. t by hami 1b too hard, but your computer con do 
It Tcry r»nt and ulUioul error*. It is iiatrectlite to 
tcoon not ar.ly tha Location of defoctlvq aeftery or, con- 
nections, bu L airo the kind or failure. This prograa 
Indicated 4 failure- Pobd! L.l 1 tier t 

■ ■ It ie not poeslMe to writs, zeros U tha tooting byto. 
(Report! 90 DISaBJ-BD) 

5. jefBotlvo (aborted er open) adreen-llne. 
(Rep»rti tltM OR 5HORT80 AOff. UnB> 

3. Defective {shorted or open) d&ta-input-iine. 
(Report. OPE* OH 5H»RTfcD BAT* LIME) 

4. It ie not pc Iblo to store ones in the tee tin* byte. 
(Revert i It »I5A LKD) 

Die memory- tent program indict tea the failure and print n 
edrevfl end failure to the terminal. If nil tvesery loca- 
tion* ere allrlght, the program finishes alth "BSD OP JOB-. 



M» 66 tr KJ 1.DAA *4m i-*-A *— oc> 



26 B4 



U-iXa-i-ruLlU 



BIB 



««4B 

M42 CB M7B 

Mi; bH s#7E 

M4B 71 B#B} 

ee«e up *t£ ^ ^ •-•uhmj' 

B«40 CB Mt^A 

»B',e so ip 

MM Of «4 HALT. 

t 
lonory-teot P.O. I 



IBS! 



'tip . *Sflft-i£ *»5 Jjlivo *»^ 



jsa 


PDATA1 


JHF 


RT-6B CTL 


MI 


dlr. .IB F 


LCX 


«STW> 


B3H 


SUBHUT 


BRA 


H1 


STX 


<>ir..XHJF 



«59 B » 1* 

20DB ?» CO 

IM^D Of U 

Vp,T CB B0M 

Mil SB 'B 

W64 ?» or 

ttib DP «4 

04)6B Ct «BD» 



IULT3 



1IALT4 



H«r |«« b***i tpjblar. th« t«glni.lc( adraas er Ihi ufioVjr " 
r-r fr ', ••' ••nt tb if. 1 at l/*W! and Ml. Jha ci-i-*,; 
Unit . torn at »BM? and »«0»). -' 

SlloroiJ routtno. (t una thn BT-61 -BPBOlt) ■ 

I«7E FIIATAI 

US) RT.68 CTL 

Stce 0UT4I1S 

E.41 C8LP 

For MIKHUG- iiair c^.unea looaLlan In the program 
04)78 AD itDt JSR CSLF 

ond add I Dhort nutlnai (CRLP- KJKBIIC) 

MUB CB II ISP CRLP LOX ItKCi, 

WEI 7S K97E JMf FDATA1 (and return) 

FollowtnB looatLooe are uaad bj tha prasratoi 

|0»4,W*j XBUF Buffer far I. regis tar 



BSR 3UBHLT 

BRA H2 

STI dlr..I8UP 

LOZ #STHH> 

BtK 3UBHLT 

■il» li'- 

OTI 

U»I 

M6B 8D 0! BS P 

0B6D 20 CE WW 

B06F BO B078 SUSHtT 

0072 « 0004 

007^ BCB*» 

00ie eo ihi 

007B 01 04 

007 P 39 

Strinjja. 

O.K. 007B 

l« 45 4E 44 ?# 4P 46 20 4A 4F 42 04 

STRB1 008A 

20 30 30 20 44 49 53 41 42 4C 4» 44 20 04 

STRH2 009B 

20 4F b* 45 4B 20 4P 52 20 53 48 4P 52 54 45 44 20 

41 44 52 2B 20 4C 49 41 45 20 04 

3TRK3 00B4 



- 



JSR 
' LUX 

, J3i> 

JSR 

LPI 
BT3 



I 



dlr.,XBUP 

I 
*3TIUI4 , 

SUBMLT 

H4 



PBATA1 

a 
W*4HS 

em.» 



• 

dlr..IBUF 






. 



■ 

20 4P 50 45 48 20 40 58 20 53 48 40 52 54 45 44 20 

♦4 4t 54 41 20 4C 49 4B 45 * 04 
STRK4 (!0O0 ' 

2» 46 46 20 44 49 53 41 42 4C 45 44 20 04 

f 

■ 



Happy tilting 






t^fe 



$0006,0001 MENDAO Hodiried ending edreaa 
(E0DAPB * 1) 

0010 DB 02 



0012 «S 

0013 DP 06 
0015 SB 00 
0017 S6 00 

0019 A7 00 
0<1B Al 00 
0010 26 2C 

001P 0a 

0020 9C 06 
0022 26 Pi 
0024 DB 00 
0026 60 00 
0028 26 2A 
002A 86 01 
002C AT 00 
002B Al 00 
0030 26 28 



START LDI 

I ax 
STX 
LDI 

LIIAA mt 

IBRD STAA X.0 

CMPA 1,0 

BBS KALT1 

HI 1RX 

CPI dlr. .HBBDAD 

BBE ZERO 

LPI dlr.,BECADR 

TEST TST 1.0 

SHE HALT? 

H2 LDAA 4rl 

»A1BIT STAA X.0 

CMFA X.0 

BNS HA1T3 






. 



dlr. .WDAOR 

dlr..iaaOAL 
dlr.. BEG ACS 



eV\ll\fiO 






JQtaM -ivrt. ; 






■ 






0i4yt«A<a.t^^UO4a^^4ari ptwS^, , » ^ .ae »fif^ gt»t 
TTVM VTCk**^ • OsA^w^aK b>8 l^» 4XV4V, nu»^»M . TtU. 
ULcr^evftX. rxrO tx»rv*N I43 A^r |jT ■ > w»> . 

J V«, (bSOO Latt4V\ *A 11T 11 V' BIiiiIBP TlMll , JflTI 

Vvb-u« eU«A^N WKaXU "tai JLwTvaT* drvv*. As TVAAcW OTA. 



'68' Micro Journal 



.31 



&<^ow^ Rows, tnA uj^jti IaV* o^jIKjjv^ eV 
o^fWJwwiO^ * OjcWu-^-*^ , a-" f **i NA|fc ^^^ c -^- A ^ 

&tlvf*AVUlCb*M 

februor-v 9, I960 

946 Event Road 

MathullL*. Ten*eta«« 37204 

hr Don MUI.om Sr 
'*•' Micro Journal 
3818 Hull I fto*d 
Hlkcton. TirmM»« 3T204 

Q*4r Sir 

CT-64 No**-^ Hod 

Pao*la uftt y»« o »tocl» SJdTPC CT-64 in it* scrolltne nod* have 

ana >roi)lM U** cww hot** f*«%ctton *» not daftnad, oi aoa-laiised 

On ?«•* 13 «f tK» CT-64 CRT ttraintl Ofiettblw l **) r**Ct I 0*>» 

AchMllWf tha none-ur cur MX" function Can b» i^itMnttd in 
•crollint nodo b» rw*6uim on* Juvir and addln* two "»or* PMi 
•»<* *«*u»** tn* CT-iU to fa* «*t ur for operation Ln «o*ollln» 
■Ode onk*< and that lOftware or switch *o taction or km nod* or 
•croLlln* nods La not lM*>le***nt*d 

R e m ove th* juewer frc* Mint OP to *oiM S on th* win totrd Ho 
wj * p* t- l« r>ad* fro* OP to eolnt P add a new «w«r front point UP 
to »ln 18 of IC 3 To hoe**-u*> und*r toVt*or* ccnf-Ol. odd o 
K*NT fro* »U < Of CO*v>#ctOr J? to on* Of th* output* of 
IC 43 or- IC 44 EVfPC tefUHtft u»a* contr-ol-P. doto link escoa*. 
for- Vt* ho**-^ function 

0#r-» truU ««x^*- 



uOJUj-«*>*-"-^ V*kMll/lLJL\ 



Paporta *r* obtained *t the clo*e of th* buaineee day, 
arliing dally activity and account atetue. Thaaa raport* 
provide not only valuable oCClca atatlatlcal data but al*o * 
check to iniurt that account data entry into th* avitaa 1* 
cooolat* and correct. Other rapotte lilt appotntowjntl tot the 
next lor opacified) day, distribution of cradlta antono, doc tore, 
and account* recelveblee. 

TH* Hat of aarvicaa and faa schedule ara ar*tared, updated, 
and oalntalned by tha uaar. Thl* awane that tha ayeteai ia aaaliy 
tailored to tha epaciflc offlca reojul raatsnta *rxJ do*a not require 
that office procaduraa b« dl erupt ad to Cit tha ayatcs. 

Tha ayoi.ee> Include a a text editor and text proceaaor which 
can b* ueed •• a word proceaaor Independently of the bualnaaa 
application eeltware. A woeful feature of the syatoai la that 
ayatoo generated llata of patient naaai and account data can be 
uaed by the word proceaaor to laaue appointment reo indole, 
pet lent recall notlcea, birthday lettera, or other routine 
an rreepondence with patient a. The for* latter or notice la 
conelructed by tha uaar to aieet hla particular rtqul ccaenta . 



40X 6SQO/6B09 mvpoter with a 
SSB DOS and Coaputerware 



nOBB 1* denlgned to run on a 
■ inlau* of e dual 5* dim ay a tea. 
Kendo* BABIC are required. 

A annual describing tb* operation and reporta of thia ay*t*o la 
available foi US.QO froa COnTWERWAAfc - 1512 Enclnltae Blvd. . 
Box AfiA - Cnclnltai, Calif. 92034 - [7141 436-5512 or 436-0282, 



vooo wtK suuRuuriNL ru p*im 

«0l0 Nth FUk |«C * I'iOl! NASI 



mJUMk UPH PfClnAL fl ACES AP.lUStEH 



flOTO urn 

vo3o mm call iwuriNL uiih n-Niwut* ok oiuira to right m DEcinm tuint 

9040 MCA 

?030 Rtn - j - 111 »M€ NimrtCff 10 MC PftlNTLti. 

90a0 REH 

90 70 Rl fl »*-—■■■■■■-*■■■■» -.■»»■■■■ ■■■•■•• »« ■•• acaaaaaa a-« • *a-a aaaaaaaaaaaa 

?04*0 RfH 

M»0 r»-RIQHl-K« «4»IR*tlNT< r«lO' - P#.5l*.B> 

V100 PHlHt Ltf Tat lB.7 Vi * ' . **klllMT»t I ».PH ) 

911* RETURN 



8 ILL V0PALL 

P.O. 8QX 33* 

0ILMDNT* HONlANA SV4** 



Nai«k p 



Olrltel Uaaeareh cwvutar ; *». lo, 19^0 

al" ?«Afl* 
P.O. -** » k O\S65 
Garland, "^«n* 7^*4 <o 

*i*ntl*Mni 

I 3u»t writ* Uil* l*tt*r of trianka to a ao.j-f>*ni¥ tlu.t di4 i»rt tniin 
Juat oon'uot sualneaa In n ro*^ liualoee* ojuviar* 1**1 hod a*«n there iw«oi-y 
taaatH Tor tha ftftOO aa?n buaa raauoad V5«Q0 In prloe to 5^75.00 «n<l Zul 
deelded to aajiH for It, /Ml* 2 jn. eaitlnc Tor tha najfnory board to arrive 
thay hnd another prloa raduotlon or i?5,00, ''ell I r*£r*tt*4 not waiting 
a Utile ioni**r to «en>l ."or th* hoard kit. .all thia 1* the nlao part, I 
reOfllTert the w^>ry kit aA.1 in elth th* kit >■• a P5.00 rariaV , t non*t 
thln> MVMt in tHin rtay -j\d ap;a a d^rr^any would )uti return t^inay and «*■ 
pleaientle aufprlietl. I want tn thnnk you ap;aln, I will km %ettlnft anothar 
lf> bor.rn a'.nn I aM w rio»,py «llao <ikiriru* thia year. 

I h*Ta hullt ynUr I. ^H Aful tn date 1'va hrtd no orobltwu. 



r>lnfler*ly. 



iahn IdPlno 

tin - M5th StTaat 

"rooklyn, •),/„ 11^09 



Copyl * " vloro Jnurnol 
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OmPUTERWAHU 50TTVA8E SEHVICtS 
MEDICAL OPPtCE WSSNOSS SYSTEM 



A Kedlce] Office Buelnaao Byateo <«OHS) 1* now available for 
the 6800/6809 cooputar eyateo. HOSfl provides en eeay and 
accurate «olutlon for auiny tedloua and tine conauaiiiwj offlca 
taeka. Tb* ayate* will auilntain patlant acaount recorda, prepare 
billing eteteejenta, inauranc* for**, routine cor reapondence, and 
preeent leporta for th* ■>an*( a *avjnt and control of a oedlcal 
offlca af on* or aany doctor a, KMU will iaaprova cash flow, 
lncreeaa office ataff productivity, and help to lncreaae th* 
volune of appolnioenta . 

The ay a too oelntaina patient account lnforaation on dleke, 
After the account nu*b*c and data for a patient are anterad into 
the eyata*-, appoint aenta, office aarvlcea* and paymente can be 
poeted to thet eocount nunber . The eccount etatua can be 
recalled and reviewed *t any tloe. The eyetaa will prepare 
billing atateoanta at ay tlo* lor either apecifltd accounta or 
for All accounta with «n outstanding balance. 



NEW 
RELEASE 



luciddhd 
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LUC1DATA hii anneuncvd the raleisa of version I of intir P-6B00 
Patcal Sytta*. This product It dcilfnetf to run on coaputfr lyStao* 
bued on the Hotoroli 6S00/6B09 microprocessors ind running the 
fin diik operating systans from Tecftefcit System Consultants, 

New featwrts In this version Include the data type REAL (l.a. 
% digit pnclslon floitUg point values}, CH5C4 RECORDS, own TTPE 
and sub*ranga cf INTEfiER definitions as Mali is the fuecttons 
CARE. NOD. ABi, SOB . RWl-D and TRUNC. LABUi and the GOTO itatfMAt 
have a Mo been added to facilitate conversion of progms frm 
unttructurid languages such as BASIC and F0RT»An\ Support of the 
FLEX Randoo File facility through the non-standard procedure 
POSITION (MWnaee, logical Record) Is also provided. Despite all 
these extensions, P-6804 Pascal -ill still mn on a elnlBae tyttaa 
svfflclant to Support fill, ROfiibla vartions ara alio available. 

Version 2 of the P-6604> Pascal Systea It normally supplied on 
« 4' aalnl floppy dinette la a specified FlFX fur a* I for 1150. A 
User Manual and Installation Instructing are included. Special 
terwt are being offered to owners of the Version 1 Systea wishing 
to upgrade to Version ?. 

Ferthar details oay be obtained fraa LUCtDATA 

Oostelnde 721 
2271 16 Voorberg 
Tha Nettiarlandi 
Tal. 070-874489 
Relets* 2 of LUClPATA's P-4800 PASCAL supports the following: 



Slaplt Data Types: bVTEIO. .n*>) . IHTEGER[-32767. . J2?67 J . 

REAL[!10- M to 9. digit precision], 
CHAflfnul. .ruhout] , B001EAN, inUetntlon 
and sub range of Integer typos. 

.'60' Micro Journal 



Oat. Structure. : 



Procedures and 
functions : 



SUntUrd Procedvroi: 



SitntUrd Functions; 



HoA*it4nd«rd * urct 1 oris 
end Procedures! 



Stlternent Type*. 



Boolean f upresi 1 on j: 



Other Fee I Lire*: 



not tr nlclFLEX 



26 January, 1980. 

•68' Kiero Journal, 
3016 flamill Rd. , 
PO Box 0*49* 
Rijcoon, Tennessee , 

Gentlemen : 



AR«Ay[up to 7 dlfjens 1cr.s] of amy type, 
ALrA[p«cked irny 1 ,. 6 of CHAR], 
Sf7[b4 •lf»tflti]. RECORDS, v ser derided 
tyees (STR1M6S), F.U[of toy type]. 



P«rlaetlrs of eny type pissed hy vi1u#. 
Recursion 1s supported. Netting of 
definitions »nd ciils to IS levels. 



READ. RCADIN, WRITE, HRITEtK, RESET. 
REUR1TE, HALT 



ORD. CHR, PREO, SUCC . EOLK, EOF, COO. 
ADS. MOO. SQR 



CARO. POSITION . UNPACK, USER, PEEK. POKE 



8EGJM..EHD, IF. .THEN. .ELSE, 

CASE. .OF. .END, MILE, .00, REPEAT. .UNTIL , 

FOR TO/00WTO..OO. GOTO. . 



BYTE/ INTEGER/ REAL/ ALFA reUtlflrih, 
CHAR/RECORD/SET/ARRAY cquillty. OR. AND, 
NOT, I»r sft or subrange «g['A'.,'Z'] 



Selective control of listing within 
program by prigmdit SLtor- , ejjy linking 
to assembler device driven, virtual 
aemory mode {or snail sylteas , rando* 
file support , H«Dddei1n«l constants are 
recoqnl s ed. 



373'. 3. 



I bd really enjoying the Journal. lou are 
doing a super Job. Please find enclosed some- 
thing you may find suitable for Inclusion In 
it. This is the first time I have ever eent 
anything to a magazine so I an not sure what 
the procedure for doing such a thing ie. I 
would appreciate your letting me know if this 
ia not proper. 

Since the attatched concerns TSC BASIC, is 
it normal to send a copy to TSC as well, or not? 

I have alio modified SWTP BASIC (2,0 ) for 
use on the modified D2 kit and I can submit it 
as well if it would be useable. I notice that 
most of the articles are for people who are 
fortunate enough to have printers and disk 
machines* However, there must be a number of 
your readers, like myself, who haven't been 
able to afford such luxuries, end who would like 
information on how to make better use of the 
equipment they do have, I would like to see 
more articles for the likes of us. 

Also I have added statements such as SET, 
RESET, CLS, PRINTS, and POINT to the SMTP BASIC, 
eo that I can run programs auch as those written 
for TRS-80 type graphics, end I would be glad 
to submit information on this as well. 



lours very truly, 




Dick tfellroy, 
2107 Gary Crea., 
Burlington, Ontario, 
L7B 111. 
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incus- 

HJAT11 
•IUT2A 
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M 
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E.U 



IdOOB AC1A statu* 

tt**J print 'Ca' aud >IT< 

Id 3D Input . Cbr. fre. T.fvr 

tLMtga frlnt . Chr. oo th. seraaa 

lEJDe Print ■ X* t0 . Bi OB t aa Screen 

twT)B CHTBUa Control Routine 

1002 Load Coaplel* raaa.j;* (ay lnc.l ) 

Hrt2n Print 2: U.I DltitA 

WW 1*0 Aittc Start (•> l«.b.)> 



k.000 
1,002 



acoo 
ti 10 

»7 «oo8 



1,005 B» U>l*> 

".00 SB fclSU 

»O0B 61 53 

H»D 2 6 P9 

■•OOF Ml H94 

• 012 BD EUt 

»0J5 81 )9 

•017 2 7 J6 

1.019 "1 51 

boll £i EB 



AOID 
'■Oil 
1.OZ3 
»025 
1.027 

a02A 
1.020 

i.02» 
1.031 

•<?!<■ 

1.037 
1.0J9 
af»3C 
40JE 

wOAjO 

'uttl 

1.0*3 

1,0*6 
i.OA.8 
kcAl 

4C+t 

1.05J 
<.05<- 

057 

•058 

*05» 

3» 

1.051 
»05» 

'■(.-■E. 
4051" 
a MO 
aObl 
»062 
aoU 
1.065 
«.06« 
•069 
I.06C 
»0«r 

.070 

a073 
U075 

1.077 
1.079 
a 07* 
1.071) 

• 07P 
■jOSl 
".083 
W85 

aoas 

a069 
V08c 



10 Ea«« 
7F .057 
60 JS 
80 02 
87 a 058 

6D 2P 
D7 «059 

R7 .05* 
7S l-OAC 

8D 22 
7A W53 
27 05 
A7 00 

oa 

20 f» 



IjCiIO 



^«C taOOO 

UaU JVOOOIOOOO 

STAA ACHJ 

JSH C1U 

JSR IHCKH 

CUP* I'S 

JSR »tC»0£ 

JSR IHCH.1 

CliPA /'?, 

h!., LWOa 

CMP* »'l 

BSE lAkBl 

JSR D C2DI 

CLB CKiUM 

BiB BTTE 

MM #2 

ST/U BYICKT 

8SB BTTE 

3IIA JKI 

B5R BTIS 

3T..i XX* 

JIIP C£AP1A 

U^L BVTCtll 

B&, Ul*li5 

CTAA 0,1 
1MI 
UK* 



la. til. AC1A for ,1 

Prlot <c»- I "LT, 
O.t a Car. rro. T.pe 

Hot ,o ■»• 

Print «S' 

O.t aealb.r Car. froa Tap. 
I. '89' • End Of load 
Knt '«9' ,1 atl' 

Print «1* 

Cla.r CB.ckiaua 

G.t a Bjrtt /tod Tap. 

adjual SJl. Caual 



Hi Hyt. of Addr.aa 

to B7tt Of Addraaa 
End of TSC tap.1 

c.t jjAT« iyt. 
h.-tue. L/t. CDtmt 
lata Block Can. 
stor. Ikit. 

Euap Polot^r 



«D57 

ilD 

»OJB 

1309 

C09D 

(.1.9* 
£109 

OOOi 
0001 
0001 
OOOI 



1/AD3 IJ |C CK30H 

Bi, tjlilil 

LSI yCKCBJl 

JSB PBATA1 

JHP CtWTHL 

i^utxi js« merit. 

JXP tKMBO 

UaUtJ HKB 1 

BYTCIIT RKB 1 

ml sio i 

Hit «HB 1 
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UTTI 



4057 
a 057 
B>2B 



bsh imrjcx 

AStA 

ASU 

ASM 

A£LA 

TAB 

B3B 1HHZJI 

ABA 

IAS 

A»Q8 CXSOH 

STAB QCBm 

Jan 0VT2A 

art 



BD EL3B ImAX JSK IHCBK 

80 30 BUBA #|ja 

21 or Bui CDtn 

01 09 CHPA #9 

2P OA IU RIS1 

61 11 CHPA #111 

21 7 IHI IEZSBJ) 

81 18 CHPA »»H 
21 03 1ST 
80 07 StlSA P7 

39 *rsi »T3 



adiui.t Choclt.ua 
M»»t Sat. Bleak 
Cfe.ckaua Error 
Pilot Zrror ''aa.a^. 
Kilt to CMThUO 

Print '9' 
load Coapl.t. 

Ch.cAoua 

Byt. Cooot 

Addr... Ulsa Byt. 
Addr.a. Lom Byt* 

G.t 1 B.a Car. 

Bal*. to VpftT Krbtil* 

Baa. la B Aeo. 
loota.r bal Chr. 
CoHbloa Cbra. 

Add to Cbackad* 

Prlot 2 H.x chxa. to Bcr.ao 

Qtl a chr. froa Tap. 
Oa .ASCII. IK 
Hot . 1.1 Chr. 



♦ o8P 

E091 



BULBhS LDE 

jsb 

JKP 



nana 

FDATAl 
ciWRI. 



0-9 /■ 

Mot a U.i Chr. 



Hoi. a B.i »f, 
A-P « 



B.a Car. Brror 
Prlot Error HeaaaB. 

bit to C8TB03 



Ubi Lxttottar 1 ord.rpii a BA^IC on can.aEtt tap* froal TOC. and I want to Dtat. 
that 1 a., vary lajnra.aad tiy th* prouelata. «lth whtca th* ordar ua. filled , 1 
h-.l th. tap. ana mat ruction honk back within a woaa Df ciindln.' in th. ord.r. And 
acrooa it., bord.r tool 

My ooaput.r to a Motorola 02 kit which baa b««o aodlfi.d with an »X6800AB 
obtb.rboard, aa KaXt£B^ aldao int.rfac., an ElactrohOD. Msltor, and a Co.rry 

•PBO* E.yboard. ol.ca tha ToC tap. la formatted for a aaohln. uaUC tha »LIXuUO 
aonltor and th* 02 kit, ualntf tha CRTEUO aonltar, aap.ata to aa. tap. a foraatt.d 
la tl>. JBIX3 foraat. 1 had to writ, tha following- load.r to i.t th. BASIC loto of 
atachln*. 1 hav. a 1BK a.aory .ddr.eacd froa 10O0O Co I3PPP, .0 1 bava nloct'd 
th. 2^6 »7t«a of co-bo.rd Maury no tha £2 kit to 1*000 to l^iyf, .0 tola La vtmr* 

I put tha loader 

'66' Micro Journal = 



'xvtr 

aO<)D 
'■091 
t«>2 

him 

tuy< u 

"III75 

4097 
<.t>9!< 
1.099 
I.09A 

k093 
1.C1C 
'ICAJO 
ao»» 
It'lf 
'.DAO 

kraa 
(.012 
'lOAS 
WAl, 

»0«5 

1.0A0 

'tOA? 
WAtl 
I.0A9 
APAA 

1.0 Afl 



(It 

CO 
«S 
<"> 

•rO 
20 
A5 
•jl 
32 
'.f 
52 



00 
<i> 
A8 
<i5 
«> 
VB 
5> 
5> 
»B 
20 

*s 

52 

52 
"if 
52 
Ok 



I1XL..A PCD tA.io 'CI' ( ar' 

KCC "II .J Ei.ltttir 



PCB I 
CKEaH PCB lA,l> 'CM' t 'Lr- 

PCC "CltECKBUH " 



pec '*SHk/R" 
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■.one 

COD2 



COBC 
C0»7 



6c 1046 
27 0} 



71 Cs>}7 
7E k'105 



WnDU U>X 

c?x 



JKP 
IpUDlS JKP 



XH1 

-rats 

I4AD1B 



14*02 
LOCXSO 



Addreue to X-P.es. 

Don't ellow tafe to auto- 

otort BASIC •• IA0CS-IA0C9 

Lb uaeo by CBT3W /or other 

thlnta. 

Hot end of Tape 

Load Coaplelo 



J.0LC BB 0119 
C01P 37 



voce 1 wee obl* to load the TSC tape, then 1 had to figure out whet 1 nod to 
ch,,n£e ]n oAfilO oo that It Mould run on ay Iictllt. Here or* the chancee: 

TSC UAS1C ueee Gontrol-X to delete an error. d ioeut llDO Odd elnoe CPTBirj 
usua Control-X to turn*!*.. Dnrtor on and off, 1 «ti coailounlly losing ay ouraor 
when ] deleted ■ lint. Therefore 1 ohnneed SELCI UOOCA) froa il6 to tOl oo 
thai 1 fcould une Coiilrol-A Lattead to delete o Hoe. Th.n 1 clanlcd (»0d7E) 
frcw IV6 to IC1 oo t)<»t the delete error stiteci would print 'UpBro-A' iaetead 
of 'upwro-X'. 



I len MC'e end of eKrjory KttXlttl (lOOCo) at tifff on that 
on-teorj Nobnry fron .tOOO to SclfF for patcheo. 



could uee ttl« 



4020 
C02S 
t«» 
C029 
C02C 

i.02 r 
cojo 



co)2 

C035 
C03& 
C03» 
C03A 

CO 3D 
COCO 



.(.ciut/idutpul v.eiorn wore 



ai fflllflWp 



"lr* Ti. <mz 

'loo 7i. aocj 

nior If ii'.A 

OIL 7i conn 

01 lb ys COM 



t-XH Jt:P c*f>HTl<L 

..•ml j; ? iHchy 

jWJii j.p leaUt, 

vi::ch tfp i: hi 

.-#U0H J1J> IfJUC'LI 



tin to c*-rtuo 

P.teh to dlepUy lncomnloi Clira. 

Output to the Scrreo 
Paten for In Ffoo tape 
fa ten for Out To 7aoe 



*Hlcc the keyboard 
ooJIly cliacklac 'or a 



for Into eoiTuter coaeo In tb r 
Conir*>l-C as follone! 



PIA At IeO.li, 1 hud to 



«1C? 


CL 


Socc 


car. 


LL 


Lea. 


rfH;'.l-U 




OICA 


An lil 






UAA 


1,X 


^et VIA utatuo 


01CC 


CI 








ASIA 






O1C0 


JC 


M 






BCC 


wra 


119 liti klcht How 


our 


A6 


oo 


criiLci 


LuA* 


o.x 


Grt PIA Data and shack for 
















Coatrol-C 


(id ulcol 
















MM 


Ca 


804 C 


ii inn 




UK 


HPIAUD 




01 KB 


A« 


01 






LBAA 


l.« 


Oet PIA Stetuo 


ulKtl 


CA 








ASU 






OlPt 


2C 


h2 






BCC 


•lA 


Ko Data ftlght NOW 


0200 


81) 


CD 






>SR 


CTKLC1 


Check for Coatrol*C 


nd alool 
















Oiii 


CI 


sow 






LSI 


*PIAlAD 




02>5 


A6 


01 






uiaa 


>.I 


Get PIA Status 


0257 


ce 








ASIA 






025 8 


2C 


0} 






ICC 


'•> 


Ho Dots flllht Row 


025» 


■D 


oicr 






JSP. 


CTPCC1 


Check for Costrol-C 



ft liujo 

11 01 c>* 

w nit 

>C r.C jC 
tX 4030 
J9 



'In Prom TOPS. 

TINCHX STI XTtKP 

JSP. COTJLC 

jsb i:.-. h.i 

JSP 1LCB1E 

LSI IIDO" 
PJT3 



oooo Jriiic y*e o 



fr cojo 

BO 01C7 

ft COJO 

r6 BIAS 
71 bC94 



♦frit to Tap*. 

Miuciu stx irtxp 

PSkA 

jsjt craeic 
pinuk 

U>X XTAXP 

jsr 0OTCO 

JKP DECIDE 



Turo Tape At 



.j»t I -:**i. 
la there a Cootrol-CT 
Ho - Oot Cbr. froo Tope 
Echo to Sarin 
Haotors X-Bjsg. 



«ete I-B.I. 

&aes A-AOc, 

I* there a Cootrol-C7 

Ho - Neotore A-Aea. 

Sea tore X-Ael. 

#utput to Tab* 

Echo to doreeo i Seturo. 



coo 

CCC6 
Cni.9 
COCh 
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7» oocc 

26 C3 

71 LCOC 



'To Dlonlajr lacoemins Chro. on the Screen 

rt-IJMy JSP. linn Cat Chr . tram KbVV, 



«(0V 
C0S5 

ins? 
•■."'■A 
COM 
Co58 
Cnti 
CObC 
C0C7 
C06A 
C04C 
Citio 



rr C030 
7D AOCel 
27 oil 
7A AOtjt 
K A0A6 

on 

TT AjjCC 

in WM 

IE COJtl 

9C «9J- 

i7 »1 

O* 

76 OCO* 



IKtfH? JSB IHCin 

I.t £Cl<>3 

BK£ IftslX 

JI.P DECllDo 

NtJlX BTJ 

•huckepAce Pettch. 

P-TCH5 STX XTtMP 

TST CC0UNT 

tii.» PTCHjt 

DtC CCetUMT 

UM CUIKYJo 
OCX 

STX CUIIPtU 

JSM UPDATE 

PTCHJA LUX XTU7 

CPX VlHPBVr 

VSCl 'e* 
DKX 

Jltp lutein 

END 



Get Chr. fros Keyboard 

Clir. to be Kchoea? 

^o • Betura 

Yes - £ut to Screes A Return 



Sste X.Rsr. 

ctieck Chr. Co ot 

Already et Boftlaalag of Line 

Reduce Chr . Count 

Podues Curoor Position 

Update Cootroller Hs(lstero 
Peat ore X-Bef. 
Beginning of leput Buffer? 
lea - Oet a Cbr. for this Lice 
No - fleduoe Buffer Polater 
Oot another Cbr* for thla Lloe 



AfCur aaklag tliaae aodl fleet loee * TSC BASIC worked vary well op the 02 kit. It 
waa eertolnly lot faater than SATP BAJTIC {which I also aodlrled for the 02 kit), 
eupeclally in the nW-lftAT loop dapnrtaoot. 

Il«w I would like to eak a oueotloal Tbe AB aotherhoard naa two 66-pla conaec> 
tore (which now contain the 02 kit and a 16X neeory board) nod fire oCKplo HOKEP 
type coAneotora tone ot whlob oontalno tbe oldoo driver board). 1 would like to 
lacreuee the elu of the aesory to >2Jl and I hnee another 161 aeaarr board which 
woulo require another 66-pla aocket* I also have a 5-atro sole with fire 66-pib 
oockete. le there e convenient way to coaoect the two antherboarda toeather, 
preferably by pluR^lnr, or should 1 replace the two loX aoaorlea with, a 32X 
aeaory that UAOB the fiO.plo leOKEP oonnectorT 



Decauaa of the way the Inltlallia routine aaadad the Kaodca nueber Oeoerator 
with the eeae nuabur ovtry tine a proirnn wao started, the proeraa alwayo becan 
with 1 he asaa aumbsr eorlee. So I aada the followlo* ohanie to the ioltlallce 
routine to codify bits in the eeed inateadi 



0207 
0209 
02PS 
020D 
02Dr 



96 T2 

4A 22 

97 n 

8c DB 

97 rt 



!»S1 



LCAA HAIiDBM.l 

fJftAA jrejOOl 010 

6TAA AAAapw 

AHOA »JkU011DH 

STAA HAStwW.J 



To Eat cy curoor to llterelly beck up 00 thi screen when I did a Baokapecs. 
1 Put a potch in tbe Backapace Routine! 

(J509 ?E COAr BCXSPO JKP PATCklJ 

fo cat ay ACLA for the Tape In Bad the Tape «Mt loltlallted properly, I hnd 
to put tbe following patohea in tbe SAVE and L&AD routlneal 



0719 



IM> C000 CAVE 
Bi CO 17 



jsn 

JSP 



PATCP3 
PATCB2 



tfllowlnr ur* tlvv pAt*?h «. referred to above i 



COOO 
Ii002 
4 0O5 
Coott 
COOB 

COOC 

coot 

colo 

COl) 
C01C 
Colo 



COCMJ 

.lOOA 

;-u 
0115 

0H7 

aC'JC 
hi AS 
o c SX) 
00CC 

n OCd 
„.-'.■ 
U.I-C 

2»r 
- = ■- 1 1 - - 



86 51 
>7 800A 
so 01 1a 
10 cooc 

a* fa 

es 00 

BO 0115 
5A 

26 n 
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aVl (COOO 

-CIAS 1C1" IsOOA ACIA Status Pad. 

YAP^tl E.U 1011-, BAeIC Turn Tape to Vector 

TlltCII UM loilv BASIC Tape Hut Vector 

Cl/THLC C..U (fllCJ BASIC Cheek for Control-C 

IJICTIh i.U ,tlJD CPTBUO Oel a Cbr, fron Tope 

llr.cHDi. Ota IJ.v'' CPTBUO plucput to the Soreea 

<1lTCO tAlU iElAA CkTBin «utput to Taps 

IIICIll biV iljl:', CITBUu Oet e Chr. fron Keyboard 

AClH Bit, tooCC BASIC &ho Inhibit 

CCfll'.r i.V }.«>C3 Cb-rBWl Chr. Count on s Uu 

CVluTtK tl<I> lAjMb CRTBUO Cursor Posltloa 

UPiAATE ei,u iECVC CbTBUu Update Cootroller letlatsrs 

11:PSUt' thill u-.. /r BASIC Input Buffer Start 

IHLIl'l EhU »OCoC BASIC Inpul a line fron Earbeard 

'Inlttallss ACIA for SAVE. 

PATCHl UMA A*wOlOlO0Ol 

b'TAn ACIAS Initialise ACIA for el* 

JSP TAPEsW Turn Tape <Vi 

JS Li.lhi.ii PUDch Under 

KT3 



LtABtk UVAS iC50 
WAA m 
JSB Ty)0CS 
DEC! 
BUS UUDEK.2 

irro 



futput 250 Landar Cbra. 

CI do aot have auto atart and 
atop oa B7 onaaetta pott oo 
I ban* to near where the 
proEraa atarts.) 



■loltlallne ACIA for MAO, 
C017 *l 10 PATCK2 IOAA slaOOOlOOOO 

Coin 87 6O0A STAA ACIIS Inltiallee ACIA for el 



Dick MoUroy, 
^107 OaOT Cm., 
Surllnctoa, Ontario, 
L7B 1T1. 



I have long desired a table 
lookup program for the 6800 
processor written using 'good' 
programming techniques such as 
being re-entrant and relocat- 
able. I have mentioned my 
longing to fellow programmers 
Brad Oestrelcher and Bob 
Melster. The problem was how to 
pass Information as to the table 
location without using an 
absolute address. While eating 
dinner one Tuesday night, Brad 
looked up from the table and 
suggested we use a 16 bit offset 
following the call to pass the 
Information. Bob and I wrote the 
'Tuesday Night Dinner Table 
Lookup* soon afterward. The 
subroutine Is now part of my 
LEOBUG ROM monitor and Is used 
for ASCI I to BCD conversion for 
my Selectrtc, address lookup for 
my keyboard line buffer,. etc. 
To the best of my knowledge the 
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progran is re-entrant. since I 
have run the typewriter under 
interrupts while using the 
lookup for another program. I 
have Included a test example to 
show how to call the lookup. 
One final note: this program 
would be only a couple of In- 
structions on a 6809 or PDP-11. 



Leo Taylor 

18 Ridge Court West 

West Haven/ Conn. 



06516 



Ir. the January issue of "68 ' MICRO 
JOURNAL you published a letter I 
wrote you about a problem I was 
having using FLEX. To date I have 
not received any help from any of 
your readers. However fir. Lyle 
Hays, a computer language teacher 
at Pittsburg State University here 
in Pittsburg, KS has given me the 
answer. Lines 50 and GO of the 
inclosed program produce a Record 
Number and also a Sub Record number 
from a Logical Entry Number. 



00038 
0004 
0OOV> 
000*0 
00070 
00080 
00040 
00100 
00110 
00 120 
00130 
00140 
00130 
00160 
00170 
00l«O 
001*0 
00200 
80210 
00 22O 
00230 
00 2 "0 
0*230 
0024O 
00270 
00280 
002*0 
00300 
003 10 30*0 

00330 3000 BO CI AC 

00340 3003 80 41 

00T90 3001 80 3800 

003*0 3008 20 *2 

00370 300A 03T*» 

OOJ80 300C 0* 00 

003P0 300E 88 E1DI 

004OO 3011 ZO ED 

00420 3400 
00430 3400 30 



TUESDAY NI8HT DINNER TABLE LOOKUP 
NOV 23. I»79 

O0JECTIVE TOOLE LOOKUP SUBROUTINE THAI IS 
RONNABLE. IN1ERRUPTABLE. RE-ENTRANT 
QNO THE TABLE AND i 80XUP CALL CAN 
BE RELOCATED AHVUHERE IN KHOrtY 

•N CALL A ■ ITEM NUhDER IN TABLE 

B i DON T CORE 
X m DON T CORE 

ON RETURN . DESTROYED 
8 - PRESERVED 
X « POINT'S Ot ITEN IN TA3LE 

PR0ORW1 EXECUTION RESUMES AFTER OFFSET VfiLUE 

EXAMPLE J5« LOOI.W 

LABEL DRO *+4 

FD8 TABLE-LABEL OFFSET WILLIE 
<RETUANS MERE. X POINTS OT ITEM IN TAH.O 



TEST PROORAH COHVERTS A-J TO 0-« 
EXAMPLE PRESSIMO C DISPLAYS C2 



OPT 

0R» 



jsa 

SUB 

jsn 

BRA 
FOB 

L*fl 
J SB 
BOA 

0R« 
FCC 



0. NOG 
13000 



OEI LETTFfi INTO REO 
REDUCE TO FIRST ENTRY 
COLL LOOKUP ROUTINE 



4C10C 
1441 

LOOKUP 

■ *4 

TABLC-HERE C(V CULATED OFFSE T 

*. X FETCH CHAR FftfWi TA8LF 

4EI01 PRINT RFSUL 1t 

L OP DO IT OOOIN 

L00P.440O 

/O 12345*7890/ 



00430 


JSOO 










CMS 




L0OP*-*8vrj 


00470 








m 


TAPLE LOOKUP SUBROUTINE 


01)480 








• 












0O4»0 








# 


SHE 


» 23 BYTES 


I1ME » 79 CYCLES 


OOTSIO 


3800 


3T 




UOOKUP 


PSH 


B 




SAVE 8 


00520 


KOI 


-... 








T6I 








... i-, |o 


3802 


FF 


ot 






MIX 




1. X 


X POINTS TO OFF-SET flFTEft CALL 


otmo 


3804 


W 








CLR 


B 






'Wtjio 


38i>5 


M 


03 






ADO 


A 


3. X 


ADD A RFO TO OFFSET 


OOritO 


3S07 


E " 


...■ 






OOC 


8 


2. I 




OOTTO 


3a'?» 


... 








ISX 






t POlNTfT TO RETURN ON STACF 


■>.■:?■■ 


38tiA 


CI 


... 






ADD 


A 


2. X 




K.-.J.I 


'«.'!' 


[' 


01 






AO 


8 


1. X 


AOC RETURN ODOR TO OFFSET 


00*00 


380E 


• 








PSH 


A 






00*10 


389F 


19 








PSM 


e 




Q00RE3* OF 0.TA9LE ON STACK 


0042P 


.H*L" 


■;. . 








TSX 








0O*30 


3811 


Ff 


oo 






LDX 




0. X 


OET VALIJt INTO X 


OOetO 


3819 


?1 








Iff 








0O450 


3814 


31 








INS 






OET QIC OF MCRk SPACE 


004 • ■ • 


3813 


i) 








PUL 


B 




It STORE « 


O04TO 


381* 


n 








RTS 






ANO EI IT 


00*10 












f«|: 








TOTOL 


ERRORS 8000* 















10 Jl-3: REN II IS NUMBER OF SUB 
RECORDS IN A RECORD (SECTOR) 

2 W=Ol FEE THESE EXTRA ARE JUST 
TO 51X17 ROW IT WORKS 

30 PRINT "RECORD", SUB 
RECORD" , "LOGICAL RECORD" 
40 FOR X=l TO 10 

P=X-INT( (X-D/N) *N-1 

Q=INT( (X-D/N) +1 

IF I1O0 THEN PRINT:W=Q 

PRINT Q,P,X 

NEXT X 



50 
60 
70 
80 
SO 
RUN 



RECORD SUB RECORD LOGICAL ENTRY 



1 
1 
1 

2 

2 
2 

3 
3 
3 




1 
2 


1 
2 


1 
2 



1 
2 
3 

< 
5 
6 

7 

a 

9 
10 



This with the added information 
the FLEX manual should allow me 
do what I want. 

Many Thanks! 

FRANK C. BARNEY 
316-231-1570 
4 25 North Edwy . 
Pittsburg, KS 
66762 



in 
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TtW, ■ gl oria ftft n hi>| did aASIC pfOj-rw, m 
" ' *. t'j.. WTr *. *-. i 



iiMt *i!1 lair* unn 



PrwiraaM tetrad lo dtulit tinder »TP Ik BASIC VtrMon 1 xlll not wwrk- 



1 ■ l uliijj. mm 



*Arti i 1 * iMdfd 44J run u»*er errant*] 1.:. Tkw f-tnbiwm U»f in Male**™*.* Of The 
(ora kartaM* ■ tiarattiQ*. 

TIM obvloue lelution l* lo reload ,-n« r« i«* prograss indei V*»*i«n I, 
(Mrf I *«ni*4 le take i4vMiiif of the .actcahvd »p*«d of Version: J. Another 
■slurion it io iMivully PMUM th* orT«i<ln| line-i* tvt I M « Falfly lar** 
coJUctiua Of loaf pr*jjr,*ari, a* J «iRtfi tu at cud ike- wari a* J In* ntt (H 
r* -later 

Formal* ip, ttc a.ffereatae kci»i»n ih* »«■ ike proiraaa »r« etcred ueor r 
ih* tfo y«rtiMi Li U'MMailc g pftiliikif i ubort aachinr Intuit? proftra* , Tf|u. 
to ''uBdate" IM nltor r>n>|raa*. 

frith kfaiftto-ai ia wlr Rutin* it * cared m ttw fuit; 
[] deliailer bftr.i !•.*),» •) 1 1 ■ tnc ftiianrt. 2 6C0 K/tei).(2 bjiei drfinHU the 
ttaleaent tree). 11 byia for ih* iixrHm length), and irKn tha iiitiwrni Itself. 
T>* problrm it*tf**nl% have i wo nlrt bflii Cloven Ihc l|n« r>u*tK-r bye* and 
tha elaleewni prup* r Thel* byl*!. wh*n 1 Ka>jr occur, efuiy* contain 71 and Ja, 

TMh itt|d|M lor any ^rtuirmti- ol *F. »tiSir-ul* 
J l~rua Eh* I la> l*n£th hpt* (Lo tttvuuni FOl th« -' bfttl to baj tn^ived, and trktnl 
neve* the. wbwl* of ih* rraalndtr of ih* prof ran up two byte* to oMit»r,M( ih* 
ft *tvS :<t. Tala pcucett ii riiMdtc'd foi all oCcurraacty of 71 

T*IM CCmld b* lo-nJrd *hore the BASIC prufra*. 
b*Jt runnlnt Ih* Rat.*, pnifraM. <ar *t tfiaftt ,(•.* to rw. if, -111 »lpt* Off TNH. 

Ih* frrtl pl«** ID *1tn-e n it hftuv-ck Tfct *ntrrp.-«<t rr 
ae4 the M5IC proxm*. Thi» ». II r*ra.( it to rwnt u place »\i I* eevrrtl 
■ASK pre<t*»» at* lo*a>a. "cl«aA*4.uB" sad ra. 

To cr*«lr ip^i fur HIM iKmM IHr cmtratt 

ol •!« aid 1141 bofurrr |ua4inC 4«* M-SH r">t IM fH^» fori** r h* lf«tvtpr*t*r 
t* llarl aJ lac alia j; arterr al Ih* nn *ldr**T tlaWaal at flUE a*tl *UI, 
laiK* T»m It aoOUl 4* aylti l«*tc, UcU MM Hirf(i| »**foi «Jh«ili 

*« *ai at. tiy. if xi Vine* llw RASfC im*ra>»t*jr rt«arn«« J5* t>fiea at in* 
9*4 Of HHrajorr for a tlflnj hurirl «p*I tucilrtf MaKA« TdlM 1 idwuldl *Vr Ml 
Id it«T ••orl Ol Ihlt ar* a , il U/l for Ltdt of •*»» ry , for miiiiKr. or m\ Htird 
il Tathla I, Not* lhat latt *l^.Plc* addrcn a]<|«ati> i-l<* tn tttil: enter itar 
approprial* aadrta* In both plicai icCordiai to tho sis* of yuir •ct«i)p 

To !■•• T»IN> loadi V*ralor. 2 of tlir intfrprclcr , chance iht content* ol 
»14K and PI1F to \H* w«lnf lh« 11 COMand of NUAUC or SkTItUT.. then loxl 
TR|H iliiiih| ■! ]1J f t atttn umu Ih* H i^«m**A. Nov prtlk* i: Id reach lh# 
BASIC coajaind level, «nd Mud ih* old prcjfrfta from ca»^*ue. Dcturn lo ihr. 
»y«t*a l*i*l by mini the I'ATCll COMnnJ mnd chance the content* of AVJ9. i\t)49 In 
the ■tertlfif, addrttt of TBI**, |,r. III?. »r>J |»re«* ; to «i*cwte Ifl'i. 

After * few seconds. ^f^idinR on t)*r 
ilia of yavi wmorf and ihe nta*fier of tin** vhkch a«e<i lo h* trieacd. ihr 
■nteai will retvm to rk* HlltU; or StTlOr; Minor I*.pI. irhe A thl* hapirtai,, 
urn* ih* I* t- ia— a*>4 a|am U Thane* th* <oat#tii> qf 1*4), A049 kaj #I|TJ + Vkl 
prett C. Thii will relurrt jrou lo the IASIC co»*«nd level. The old procros 
abould now mi, Ml ur bt UMirJ la caiftette la itt *r* ***», If *t»1her aM 
pruiraa iw*d+ lriaa>iaf t load It Ifw* MiitUf **4 w>r the fAtfl crumirf to 
ralarn la the i^ilea aawilvr lewl, Chan** Iht can lent* oT AfU^.U49 Tn 
\Vt7 Mid pretm (L {» rarcal* t»I*t. tthen the leiMiito* arLMk^l f* ir)|«*ara . rrtodif 
Clfl ml* 4ell,«l«f aad pr*»« C., A «*rtc* of BASIC pta(i*a« aay rUit he triaatcd 
Mrf r*\AVed nh^j haviac to reload TVIH. 
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CMf 
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tM 


IIW 




iti» 


rt 




keen 


Ml 




fc.\i F i ur 


IW7 
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H»^ 




IM 


» C.X 


1 1 r n»ar im 


in? 


1A 






ur 


A 


ru o>rt 


in* 


4\ 






NC 


A 




mn 


A- 


hi 




StA 


A ».» 


»»!TlOltf <new 


ii in 


dl 






IM 




ICKVAII1> AI'.AIX 


n j i 


II 


ILtS 


NDII 


STI 


IW1 


5«\T MmfXS 


11 I'll 


Afc 01 


tax 


IIM 


a :.i 


■«M. srn lioKv no 


ii ni 


A" 


IV 




STA 


A il. k 




n u% 


HI 






[M 






MM 


•c 


11 II 




cr\ 


SJirc 


ra i« inn mu 


II 1*9 


lb 


le 




«■.! 






II in 


II 


HIS 




till 


!>«•! 


at mwnjti 


II Mil 
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llA 




hw* 
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Il III 
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lltl 
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fi "linn; «wt»iH 



A» A lr»ult '»! rHlin^lvv lottinl. A.I.C.r. an4 t «rrr ranlnl «■ Ihe 
Hi»clin r«»*er Sccltf uf Jvrtt fciit L ibcIubI Siw^i|>M)', without llvi. 

In *uib«r^u*rL d!icu.»ion, A ftlAtcd. * I lino- tiy r41it. sn>1 tAUl «T H 1 
nab hlUhvr T Iijii hr «» ■ but I Inow nuA I- uf t Hr fllitrx' ranli [I ] knrw 
I hut C »J« Ihtcv plrtcew hIGlMr llmi l«. vKich if IrtUgMy Hftht I nuulif 9>tt'tt, 
ihcn I vtxild kiiiM Ihr tvnl urdrr nf -i I I fivr of ui " 

H. «.hv h«J hn*n Imlfultl, >4 A*i riuiki, hn> Kern lold By gn* ' * plav*- 
but hi* own. Iliitfvtrr. he In conttu'rot thil ti could nut t<r M^nrr thAH P. 
uAil. AA II hippnoi, AC t» rl|Ait |h thli lUtvlir Aflri ■ p«w for fFllfcllon, 
I. A4VA, ** | can ikou writ* dank tHc rcAplrtr rAnl nrdfr" Ihr doe* »o. 
«nl La iiultr rl tht . 



Rhtl wa thAif urUtr* 



R.C. Hosley 

i4 Stand I sh Circle 

Andover, HA 01310 



This Is the 'BIT-BUCKET'. 




After a year plus we still receive material that Is 
of great interest to many and yet nor quite large 
enough to be handled as a full fledged article (7). 
Most of It (as Is a lot of the rest) Is 
photo-reduced to fit on a page with ohher such 
material. I have used various headers and yet It Is 
a pain to try to figure what belongs where. So as 
you have probably figured. I am going to cop-out 
and put a mixture of goodies about here. This will 
be called the 'Bit Bucket*. 

Here will be found letters, new products, gripes, 
hints and Kinks (both hard and soft), my muttertngs 
and rambllngs occasionally and just about anything 
else I cannot fit elsewhere. As I receive or hear 
choice bits of gossip or rumors about 66XX 
products those will fall In the bucket also. 



MM 

.<■■ 



»<« run -i 



llll 
SIM 



From your Input In the past these are well received 
and so I will Just collect them all together and 
try to drop them In the bucket each month. Let me 
know what you think. 

DMM 



36 



'68' Micro Journal 




Inventory Problems? 



Are you having trouble keeping the right nuts 
ond bolts in stock? Since even o simple mistake con 
cost you rime ond money, a good inventory system 
should do more than just count ports. If should fell 
you exactly what you need, when you need if, 
where to get it, ond how much if will cost. 

The MSI Inventory System Seven enables you to 
maintain a versatile doto base for controlling 
inventory. It lists port number, description, quantity 
on hand, vendor, cost, selling price, optional 
pricing, usage levels for previous month, present 
month, ond yeor-to-dote, and much more. 

When quantify on hand items reach minimum 
levels, the System Seven compiles on automatic 
reorder list. This list con be generated by spe- 
cific vendor os well as o complete listing of 
all materials to be ordered. 

In addition to the item listing, the In- 
ventory System Seven "bill of materials" 
provides you with a complete inventory 
of items used in the manufacture of subassemblies 
and complete products. If also contains other cost 
items such as labor costs, total row materials costs, 
and miscellaneous costs. 

The MSI Inventory System Seven is built around 
the versatile MSI 6800A Computer with 56K of 
RAM. An integral dual mini-floppy memory gives 
you an additional 630K of memory and mokes 



inventory control fast ond efficient. The System 
Seven will interface with any industry standard CRT, 
and you hove the option of both o "daisy wheel" 
word processor for high qualify document prepa- 
ration ond o dot matrix printer for high speed 
production. 

The System Seven con be expanded to handle 
all your data processing needs or you can select 
one of nine other MSI systems now available 
for business, industrial, scientific, educational, and 
personal applications. 

If you need more than just o nuts ond bolts 
inventory system, we hove more informa- 
tion about how the Inventory 
System Seven con solve your pro- 
blems economically. 
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MSI Inventory System Seven 



EL 



midwest Scientific 

220 W. Cedar, Olofhe, Kansas 66061.(913)764-3273 
TWX 91 749 6403 (MSI OLAT). TELEX 42525 (MSI A OLAT) 



P- 6800 
PASCAL 



UCI 



ddhd 



lllllllll «E LGA B E 2 



no nai REALS l:10-"l-il!11 prtcKlon) 

now hat HECOffOS (pnntypa definitional 

now supporti RANDOM FHEi* 

now mi i coMcumr mvisso mpit)»t 

Include! lotl of SAMPLE DEMO PROSBAMS 

n*\ I SIMPLE USER lntfrrfa.ee 

14 eillljr linked to your own parlpnarall 

do*t NOt faquir* yoy to buy nor* hardnar* 

will Kill run in ONlt 161 

roOulrol OIU OM SINGLE OCXSlTt S* DRIVE 

niulni no SPECIAL TEPMlNAl 

do«» NOT forct jpou to abandon FlEX™ 

STILL COitl only IT SO ( » ISA/Mai tarcnaroa ) 



P. 6800 PASEAl IV tuPPlltd In lartlani 2,1 ulnlflEt 

*-* FLEX ? 

i.» rut ? (t>09) 

ruRTHER DETAILS FROM: 

LUCIDATA 
Oottalodf ?H 
111] EG V00R8URO 
NC1MEILAN0S 

■w 
FLES la th* tradanan of TSE Inc. 

• Not In "onion J.l (aitn I'LCI I 

**************************** 
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■ 6900 


PASCAL 


.6000 


PASCAL 


.6000 


PASCAL 



6809 — DATA FILE MAINTENANCE A 

STOP writing dinky little programs for all the 
one-time changes to one item on a data file. 
START bringing up new systems without long 
weeks of programming. 

The General Data File Maintenance Program 
can add. delete, insert, and modify data on any 
file you have*! The powerful security allows you 
to restrict modification of data already entered 
This software tool will save you days of pro- 
gramming erloit with commands that can list, 
print or show your data Some of the many things 
you might use it for are: Inventory files. Customer 
files, Real Estate Listings, plus many more. Let 
your imagination run WILOI 
You can format the items in many ways with this 
6809 Extended BASIC program. Some of the 
options available are right or left justify, item 
length, etc, 

Order your diskette today for only $49,951 Use 
Master Charge, VISA or check. Specify diskette 
size. 

Tennessee residents add 6V«% sates tax. Cus- 
tomers outside Canada or USA add $5.00 for air 
postage and handling, if you wish to order by 
phone, give us a call at (615) 396-91 1 1. 
Coming soon VER. 2.1 lor TSC Multiuser Basic 1 * 
'Record sizes up to 252 bytes 



r 



v 



dp systems 



"A 



po box 567 



colleqedale tn 37315 
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6800 Software 



Hardware, Firmware 



\o\. 



*h's Spec 
T Wis ^^ 

CHECK *N TAX 



your 4800 to work balancing your checkbook in<t 
paring your Incono tax. Check n Tax Is a set of 
wen lisle pro<lrant which balance your checkbook 
h nonlh, cross-check your chick stubs ilalnst 
ry single bank entry, find and help you correct 
on. thr result ii a year-to-date check file on 
k with each entry coded by Incono tax category, 
this you add other Inconf and expense data during 

year. At income tax tine, you get • printout of 

expense and iscono Item, broken down by tax 

pgory and ready for Use. Available on ntnlFlex 

Flex 7.0 fflt or TSC) disk or on Percon LFD-400 
k for Mo list -- this Month's special price is 
, uhlch Includes » free copy of FlaOEN. Specify 
ch Basic and BOS you use. 

STAR - KITS 

P.O. Box 209. Ml Kiteo, N.Y. 10549 



JPC PRODUCTS FOR 

6800 



COMPl TKRS 




a> ax ■ Ir» at ** * * a, a, at a njsssssssj 

High Performance Cassette Interface 

• FA8T - 4600 8aud Loads 4K in 8 Seconds! 

• RELIABLE ■ Error Rate Less Than I in 10* Bytes. 

• CONVENIENT - Plugs Directly Into The BWTPC. 

• PLUS - A fully Buffered 8 Bit Output Port Provided 

• LOW COST ■ $59 95 For Complete Kit. 

• OPTIONAL - CFW3 File Manager 

Manual (r Listing $19 95 
(For Cassette Add) 5 695 

TERMS CASH MC 0> VIS* Sn.pe.na a. Handling f ) 00 



r JPC productt 



Order Prions (5051 294-4623 
P.O. Box 5615 
Albuquerque, N.M. 87185 
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AAA CHICAGO COMPUTER 
CENTER 

120 Chestnut Lane 

Wheeling, IL 60090 

(312) 459-0450 

6800/09 Specialists /l l\ 

Dealer tor Glmlx, TSC V J 

Smoke Signal, SWTPC ^sl V 

Microlime 6800 
Bare Board & Documentation $ 35.00 

Assembled with parts 
(push button set) $ 95.00 

Push Buttons & Software set SI 0500 

1 1 V> digit Math Package 
with Fortran Type Formatting $1 00.00 

Business Basic Version R3 
with automatic line renumbering 
print using, and more 50.00 

Fast Basic 
(by Mark Data Products) 60 .00 

Payroll (Process any number of 
employees: fast) 400.00 

Editor-Text Processor Version 2.0 
with Mail Labels & Mailing List 
Specify Smoke. Flex 1 .0 or 2.0. MSI , 

GMXBUG 100.00 

(Hole: Above Basics have random disc tiles and 

were designed for Smoke disk: available on cassette 

tor en additional S1000) 

SEE 6IM1X AD OH P. 3 



MULTI-USER ON A 56K 6809 

Support four totally Independent terminals with one computer. 
Each terminal has access to the services you need most in 
your classroom or business. 



COMMON PILOT - the best CW system in the world, uaalul Kl any 
applcalion where cftflputer-ifio duibgue a 

■mut 



STUDENT BASIC- rMiiwrtwj. luncum, arrays, 

subroutines una ranttiri OBk fi 



SCREEN-ORIENTED EDfTOR-««n»d™:ity^o«f 

typing, ranwg. and daMno. useful ■» 



Iflt imu mCMWnaMa SwTPC /OB (the cheaper eat>9>. S6K. 
MP N tjifc utabr Board, dual lioppy dieka terjw weLc™ k> 
lair MP s serial interfaces, one tolpuf S*TPC CF fl2 terminal* 



S 260 rjosiigle oopy beauty B"e»8"l 
ItUyWtyC 




SN »...».:■ 
riuim Hand lrYashngtanBBZ62 



6800/6809 PASCAL 

DYNASOFT PASCAL is a cassette based 
PASCAL subset designed to run on most 6800/ 
6809 systems with 12K or more of memory. 

DYNASOFT PASCAL includes most of 
the control structures of standard PASCAL 
including IF-THEN-ELSE, CASE-OF-OTHER- 
WISE, WHILE-DO, REPEAT-UMTIL, FOR- 
TO/DOWNTO-DO, and recursive PROCED- 
URE'S and FUNCTION'S. It supports the data 
types INTEGER, CHAR, BOOLEAN, scalar 
(user-defined), subrange, pointer and ARRAY. 
It is built around a one pass compiler which 
produces fast, compact p-code and comes 
complete with a line-oriented text editor, p-code 
interpreter, and program SAVE and LOAD 
routines. The whole system resides in less than 
8K. 

The cassette version with manual is priced at 
$35 plus $3 for postage and handling. Please 
specify 6800 or 6809. 



SOT 



P. O. BOX 51 

WINDSOR JCT., N. S. 

CANADA BON 2V0 



6800/6809 SOFTWARE 

ACCOUNTS PAYABLE #1300 

Produce llnanclal reporte, print chec a, apeclal control letter. 
Reports by vendor number. Invoice number, aged and hlatory file. 
Auto sorting ot vendor end Invoice Mas. Plua chuck and pre check 
lournala. WOO .00 

ACCOUNTS RECEIVABLE #1600 

Producee Itrienclel reports, prima alatemanla. Oroduoae repona by 
cuetomer aaccunl number, Invoice by customer account number end 
Invoice by Invoice number. Print egad report and trial balance. Keeps 
nlslory Ilia and auto eortlng ol lllee. $800.00 

GENERAL LEDGER # 100 

Program updates to ledger fries end eiso generates reporta on 
payroll, galea, eccounta payable, eeeti and expenae ststiallca- 
Baiance ahaet end profit s loaa reporte. Inlormellon cen be 
gsnereted lor year end texea. 941 end W2 forms. 1505. 00 

INVENTORY I. #000 

inventory lor e a all company. Producee activity reports tor dey, 
mo thendyeer Minimum quantity search. Inventory list by efess. by 
vendor or complete with totals end llnencfel report. SI 00.00 

INVENTORY II, #700 
Produce Inventory reports by d*scrk>tlon or vendor, print activity 
reports lor one dey. one month or one year. Quick search by p it 
number, produce totel Inventory end financial report. (For one 
store) $200.00 

INVENTORY III. #800 

Seme ee Inventory II, #700. but producee reporle lor eight 
ator . (300.00 

SHIPPINQ/nECEIVINQ 

Produce your bualneea financial report, produce reports on seles. 
aceounla receivable end laat purchase By cuetomer. Print mailing 
lebela and prim cuslomara bills I 71.00 

MAILING LABLES #100 

Print melting lebele from your complete file, lor e perllculer city or 
atete. Dae one-part mailing lebeta. I 50.00 

HAILING LABELS #400 
Seme as #100. btiteleo prune lebele by nomas Dae multiple pan 
labeie. *1 2S.0O 

BASIC— OH! 

For those with applications in SWTP 3.5 BASIC. Runs on 6809 and 
6B09S 30% (aster and cen be used wiitt existing 6800 BASIC 
Programs. Mo manual r commands snd statements same as SWTPC 
BASIC 3.5. ideal to keep you going while changing lo new BASIC s. 
5Vi or 8 inch 09 Disk, with Renumber routine S 59 9 5 

" Customized programs for your busl net* raquirtmantt" 
Charge your order to your Vise or Matter Charge 

Aveileble from Computer Stores or order direct from: 
Omnilronlcs Inc. 1697 Rt, 33. Concord Squere, 

Hemllton SQ NJ 08890 
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Build Your Own 2708 Programmer!! 
HERE'S BOW: 



b£=t-^ 






o 
o 

CM 

■ 

CM 



o 

CM 

< 

< 




And here's the wire wrap board to build it on. The Universal I/O Board has 
space for a 40-pln wire wrap socket for any of Motorola's 40 or 24 pin 
Interface chips; data and control lines are connected to appropriate edge 
connector pins. All other bus connections are brought out to a 16 pin socket 
pad. UIO: $24.95 

Software? A stripped down version of our U2708 Utility program was 

Published in Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, 
ebruary Issue, #32. Or the complete version of U2708 Is available In the 
B-08 Owner's Manual for only $10.00. 




B BUT... 

o 

,_ If you're not a dyed in the wool wirewrapper and 
y- would like to purchase 

The Real Thing 

Assembled, Tested, Burned in and 




i © READY T O BO © 

*0 G TCI A ®WL 
COVERED 

B-08 Eprom Programmer $99.95 I 
U2708 Software In Eprom $29.95 J 




CURSOR/SCREEN EDITING IS HERE FOR THE SS-50 ! 

Research conducted by a reliable source (MY WIFE) Indicates that you spend more time looking at your CURSOR than your own FAMI- 
LYI Don't you think It's about time you used the video board and the cursor which cost you good money for something other than a 
poor excuse tor not looking at your family?! 

The unique SCREDITOR CURSOR BASED SCREEN EDITING SYSTEM Is just what you need to make your hardware work! Take a 
look M a few of the features of the SCREOITOR and see what you're missing 



•EVERYTHING HAPPENS ON THE SCREEN YOU 

SEE WHAT IS HAPPENING AS IT HAPPENS! 

•INSERT CHARACTERS. WORDS. LINES OR EVEN 
OTHER FILES. AND WATCH IT AS IT HAPPENS 
RIGHT ON THE SCREEN! 

• FILE SIZE IS ONLY LIMITED BY DISC SPACE! 

•PRINT COMMAND PROVIDES HARDCOPY WITH AD- 
JUSTABLE MARGIN TO MATCH YOUR PRINTER! 

•AUDIBLE FEEDBACK THROUGH A USER SUPPLIED 
NEWTECH BOARD SOUNDS KEYSTROKES AND EDIT 
MESSAGES AS THEY OCCUR! 

• SELECTABLE TEXT MODE ALLOWS CONTINUOUS 
TYPING WITHOUT CONCERN FOR MARGINS! 



•FULLY UTILIZES THE FLEXIBILITY AVAILABLE 
ONLY IN A MEMORY MAPPED VIDEO DISPLAY! 

•MOVE LINES AND PARAGRAPHS FROM PLACE TO 
PLACE IN THE FILE YOU ARE EDITING EVEN BE- 

YOND THE BLOCK IN MEMORY! 

•SET, DISPLAY, CLEAR AND USE TABS LIKE A TYPE- 
WRITER! 

'FINO AND CHANGE COMMANDS WAIT TO BE VERI- 
FIED TO HELP STAMP OUT ERRORS! 

• IMPORTANT INFORMATION SUCH AS LINE, COLUMN, 
MODE, ETC. ... IS CONTINUOUSLY DISPLAYED AND 
UPDATED ON THE SCREEN! 

•EDITING OPERATIONS ARE CURSOR— OR IENTED. 
THE CURSOR POINTS TO WHERE THE ACTION IS! 



The features 90 on and on" With FOURTEEN major commands. TWO edit modes. TWO mator file handling modes and TWENTY TWO 
screen operators, the SCREOITOR offers a level of control and convenience never Before available to users of the SS— SO buss. 

Order your copy of the SCREDITOR for 16 * 64 displays (such as the Thomas Instrumentation Board) OR for 2-4 » SO displays (such 
as SS8 VDS1) to run under SS8 DOS6B.S1X today! To placeyour order, call or write 



ALFORD AND ASSOCIATES 

P. O. BOX 6743 

RICHMOND. VA. 23230 

804-329-3906 



SSB 



$99.95 



V4. residents add 4% 



BE SURE to specify (he version 
de**red when ordering. 

flex« pi py 

Specify Mm.net Fie* 2 I L^^/A 

5- or B* Disk 
VISA and m. C. accepted graciously. Soiry, no COD'i. Shipment is normally within three days of receipt of order unless by check. 
6609 version available toon for SSB*i 6B09 r if H, 



JIM) PRODUCTS K>K 

6800 



COMPUTERS 




16 CHANNEL A/D BOARD 

• 8 BIT DATA 

• SOFTWARE CONTROLLED GAIN 

• 3300 SAMPLES PER SECOND 

• ± 0.1% ACCURACY 

COMPLETE KIT: AD-16 $69.95 



Terms: Cash, MC or Visa; Shipping b Hand line $3.00 



'JPC products 



Order Phone (505) 294-4623 
P.O. Box 5615 
Albuquerque, N.M. 87185 



Model EP-2A-88 

EPROM Programmer 




Fast as Jackrabbits . . . Well, almost! 

In Australia, two rabbits can reproduce over 1 3 million offspring in 
3 years at 105 seconds per 2716. ihe EP-2A-88 can reproduce 
1392.160 EPROMS in 3 years Single push button control, the 
EP-2A-88 checks II EPROMS are erased, programs and verifies. 
Il also checks for defective EPROMS. 

Two basic m dels are available. The EP-2A-88 1 will accept Copy 
(CM) modules for the 2758. and 2716 EPROMS The EP2A88-2 
will accept c py m dules lor ihe 2716. 2732 and IMS 2532 
EPROMS Power requirements are 115 VAC 50/60 Hertz at 15 
wans. 

Pan N.i IVKilprluii Pritir 

i;p 2A MX I EPROM Plt>]Mniirm MS<| 11 

Kt> i!A MX Z H'!K >M Pmv«nii».i (Ml r < 

C'MSli C<wMuduk(<K27]fi rMSZSIbr.PrttJMS 2611 

CM 71 1 Cupv Module In, i: Wlll»MS 24 U 

CM 31 (,-.vvl*.duk.|o.«ttKi'Kt>MS 2SI" 

CM lit Copy Modiilr It* IMS 2S.12 EPROMS «(« 



NonSranrlrtJdV^umcOlrfK.rHiailv 24(1 » U«) v ) 



>5i« 



Optimal Technology, Inc. 

Blue Wood 127. Eariyavllle. Virginia 22936 
Phone (804) 973-5482 
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DIGITAL RESEARCH COMPUTERS 

(214) 494-1505 



16K EPROM CARD-S 100 BUSS 





8K LOW POWER RAM KIT-S 100 BUSS 



SALE 



FIRST TIME OFFEREDI 
BLANK PC BOARD 128 

USES 2708s1 

Thousands ol personal and business systems around Ihe world 
use this board with complete satisfaction Puts 16K ol software 
on lineal ALL TIMES! Kit features a lop quality soldermasked and 
silk-screened PC board and first run parls and sockets Any 
number ol EPROM locations may be disabled lo avoid any 
memory conflicts Fully buflered and has WAIT STATE 

capabilities 

ASSEMBLED 



OUR <S0 NS 2708 S 
ARE S< 95 EA WITH 
PURCHASE OF KIT 



AND FULLY TESTED 
ADD S30 



16K STATIC RAM KIT-S 100 BUSS 

PRICE CUTI 



•249 m ! 



ton mi'.' 

*oo us 





llllllllllllllll 
II II II II I II II I II 




«»PtM^ ||i Plll»|,MBMM»lM 

KIT fEATunts 

1 AddretMbr* ■» lour Mourn)* *K Block* 

2 ON 80AR0 BANK SELE T ctrtuilrY (Cro- 
marACo£l*r>d«rdi| Aluw- up lo *t?K 00 Hm* 

3 UimIIMHHNSI 4K Sialic Ham* 

4 ON BOARD SELECTABLE WAIT STATES 

5 Ckubto "dad *C Boero «nh totem "»*« wo 
•ilk •crtenarj Ujvoui Gold Paled cenlactfinoera 
S ai wkfcea. and driii Imea hisv ouriered ASSEMBLED & TESTEDADD 130 
T Ka tnduOM ALL Mill and socket?. 

I PHANTOHIi |UfTipa»dU>P«Me? 
9 LOW POWER uiW 1 1 impi TYPICAL ham 
In* •» Voll Bum 

tO Blank PC Board can tat populated at any 
multipto of 4K 



BLANK PC BOARD W/DATA-SS3 

LOW PROFILE SOCKET SET-S12 

SUPPORT IC'S » CAPSSH.95 



OUR #1 SELLING 
RAM BOARD! 



COMPLETE KIT) 

$ 84 95 

(WrTH OAT A MANUAL 



N £*< STEREO! -v*? */ 

S-100 SOUND COMPUTER BOARD 

A1 laat. in S-100 Board that unleash** In* ruH power 01 two 
un tralivi *N* Gvrw m/ I ntti umer** AYir-ae I Q NUOS computer 
aound IC> Ailoea you una* looi comouUt control to 
i y *r !*■*>* an Irrffnn* numoer of ap*ci*l hum etteLh, for 
(prnnrairTrotn*! program SowxftCAnM 0*0*3 m BASIC 
ASSEMRt <r LAHQUAQE n 
KIT linmls 

• TWO Ot SOUNO GOMPUTEH IC S 
. rotIB MNAUfl ID POUTS ON BOARD 

• uses on aoARDAUDio amps on voun stereo 

• ON BOAFtO PHOTO IVPINO AREA 

• ALL SOCKETS. PARTS AND HARDWARE ARI INCLUDED 

• PC BOARD IS SOL OCR MASKED SILK SCREENED WITH fiOl D CONTACTS 

• EASY QUICK AND FUN TO BUILD WITH FULL INSTRUCTIONS 

• USES PROGRAMMED If) FOR MAXIMUM SYSTEM FLEXIBILITY 

Both Bull and AMr ar nblY language Programming eiamplei are Included 

SOFTWARE I 
SCL Interpreter *0mirtg eooni Our n*w Sound Com mend language Intar pratar along 
with IfM Register Earrmlne/Modi'y (REM) routm*» and SoundEMectt Library |SEL) will 
be avanatn* toon in EPAOM SCL makes sound a'recu programming generally easier 
and quicker Irian Ihai written m Banc or Assembly language An SCl users group will 
b« formed, and me Mil new SCL program tubmtiied will be added lo in* Sound 
Erlecls Library in EPROM 



BLANK PC 

BOARD W/DATA 

$31 







p«\CE 

co^ 
s 1 1 9 50 

■ ■ ^ KIT 



* -*«»W^W^aWa^aW*»-»r (450 NS RAMS!) 

Thousands of computer systems rely on this rugged, work horse 
RAM board Designed for error-tree. NO HASSLE, systems use 

Blank PC Board w/Documenfatlon 

$29.95 

Low Profile SDCkel Sot 13.50 



ASSEMBLED AND FULLY 
BURNED IN ADD $35 



ALL ASSEMBLED BOARDS 
ARE TESTED AT 4MHZ 



Support IC's (TTL & Regulator!) 

S97S 

Bypass CAPS (Disc 8 Tantalums) 

$4.50 



16K STATIC RAM SS-50 BUSS 

PRICE CUT! 



■sceir^Stf; rrrl3aSe>f~ i-TdK-ii; -J 

IIIIIEIIIIIIIIII 

•fT . » * V- »- ' «■ » JA | <■ - 



239k,x 



FULLY STATIC 

AT DYNAMIC 

PRICES 




III 



FOR SWTPC 
6800 BUSS! 



KIT FEATURES 

1 Addreiiabl* on 16K Boundaries 

2 Uses 2114 Sialic Ram 

3 Run* at Full Speed 
* Doookf tided PC Board Solder mask 
end sitr. screened leyoni Gold lingers 

4 All Parla and Socketi included 
6 Low Power LMder 1 S Amp* Typ«rral 

BLANK PC BOARD-S26 COMPLETE SOCKET SET -$12 
SUPPORT IC'S AND CAPS-S19.95 



ASSEMBLED AND 
TESTED - $35 



I Perfect tori 
| OEMs 



S-100 Z80 CPU CARD 



$ 169 



95 



PRICE CUTI 



c , LOW POWER - 250NS 8 FOR 

sM- fc 2114 RAM SALE! $49.95 

4K STATIC RAMS MAJOR BRAND. NEW PARTS 
These are the most sought atlef 2lt4». LOW POWER and 250NS FAST 
SPECIAL SALE S7« •• Of 8 FOR 49 95 



Digital Research Computers 

*» (OF TEXAS) r 

P.O. BOX 401SB5 • GARLAND, TEXAS 75040 . (214) 494-1505 



WIREDI 
NOT A KIT1 



4 MHZ 




ASSEMBLED AND TESTED 1 READY TO USE 1 Ow 3 yon. 
efioris wore rsqutredi to produce a- TRUE S-100 280 CPU at 
barter ^prta- BRAND NEW! 

* 7 « * Wnl OpmrMtgn * G*n*i(*4 MWfii'Tf io 
* Jump or* ****! cipiCiH) * aoao Smfiati wmdirtvd Use S- 1 00 riynomtomv 
* Top OyaittM PCn S*ifc ScimakI Soidt* Muk«d OfM PUbd Co-m^T F.Moewi 



NEWI G.I. COMPUTER SOUND CHIP 

AY3-8910 As featured In July, 1979 BYTE' A tanlasllcally powerful Sound 
& Music Generator Perfect tor use witli Any 6 Bit Microprocessor 
Contains 3 Tone Channels. Noise Generator 3 Channels ol Amplilude 
Control 18 Bit Envelope Period Control. 2-8 Bit Parallel I/O 3 D lo A 
Converters, plus much morel All In one 40 Pin DIP Supereasytolnterface 
lo lite S-100 or other busses 
SPECIAL OFFER; • 14.95 ••eh Add S3 for 80p*oa Data Manual 



TERMS Add f 1 00 pottage) we pay balance Outers undei Jli edd lit 
handling No COD We accept Vuaarid MusierCharge Tex Ret Add 5* 
Tax Foreign orders (except Canada) add 20% P 4 H 90 Day Money Back 
Guarantee on all Items Orders over $50 add BSC tor insurance 



42 



NOT ASSOCIATED WITH DIGITAL RESEARCH OF CALIFORNIA, THE SUPPLIERS OF CPM SOFTWARE. 



'68' Micro Journal 




5-1/4" Minidisk — Soft or Hard Sector 

Dealer and Volume Discounts Available 



S 

A 
V 
E 





SOCITH EAST MEDIA SUPPLY 

P.O. Box 794 615-870-1993 

Hixson, TN 37343 




minidisk 

5" Soft Sector S3.09 each ' ^^ 1 W T V 

5" 10-16 Sector $3.09 each [J=TP 
8" Single Side, Double "• 

8" Double Side, Double 
Density $6.50 each 
5" Plastic Box-ptus $3.00 
Minimum Order 10(1 box) 


Verl 


•571 


t 

i 


■ 
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T 
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H H H Enterprises 




Box 493, Laurel, Md. 




20810 301-953-1155 




GOODIES 




GOODIES 




GOODIES 




GIMIX GOODIES: 




32 K static ram 


$548.15 


24 K static ram 


$438.14 


16 K static ram 


$328.12 


16 K ghostable 


$368.16 


32 K mainframe 


$1594.59 


80 x 24 video bd. 


$398.74 


80 x 24 deluxe 


$458.76 


8 port serial 


$288.40 


8 port parrallel 
8 K 2708 board 


$198.45 


$98.34 


CPU w/timers 


$288.06 


CPU for 6809 oQ C 


, soon 


512 x 512 graphics ih-*-A 


Jr soon 


Sh GIMIX Ad on page 3 / M A 




l V 




SMOKE SIGNAL GOODIES: 


DCB-4 double 




density contrl 


$499.00 


SCB-69 CPU 6809 


$299.00 


32 K static ram 


$539.00 


24 K static ram 


$439.00 


1 6 K static ram 


$299.00 


FORTRAN 5 or 8 


$149.00 


DBL-SIDED 5"drv 


$480.00 


DBL-SIDED 8" drv 


$875.00 


32 K mainframe 


$1595.00 


32 K 09 frame 


$1695.00 


SWTPC GOODIES: 




6809 sys kit 


$495.00 


Hard disk 


$4395.00 


16 K ROM/RAM bd. 


$99.50 


MOTOROLA GOODIES 




BASIC09 and OS9, the best 


in 09 


operations systems, single or multiuser, 


COMING SOON. 




H H H ENTERPRISES 


BOX 493, Laurel, MO. 




ZIP 20810 




PHONE 301-953-1155 





ED SMITH'S SOFTWARE WORKS 
6809 SOFTWARE TOOLS 

RRMAC M6B09 RELOCATABLE RECURSIVE MACROASSEMBLER. 

The one assemble' Inat contains real macro capabilities (see our 
NOV/DEC AD) RRMAC is designed with Ihe assembly language 

fitoorammer in mind and contains many programmer convenience 
eafures RRMAC contains a mini-editor, supports spooling or 
coresident assembly, allows insert tiles. Is romable. generates 
cross-relerences. execution times, lists target addresses ol all relative 
references. 

M69RR 1150 00 

SGEN MW09 DISASSEMBLER/SOURCE GENERATOR will produce 
source code (with symbolic labels) suitable lor immediate re-assembly 
or re-editlng The output source tile can be put on tape or disk A full 
assembly type output listing with labels and mnemonic instructions can 
be printed or displayed on your terminal Large object programs can be 
segmented into small source tiles 

M69RS $50.00 

ANNOUNCING TWO NEW MCS09 CROSS DEVELOPMENT TOOLS 
CROSSBAK-ABB09 TO 6800 CROSS MACROASSEMBLER that 
runs on your M6B09 development system to produce relocatable 
M6B00 object eoda Has all features of M69RR (sea above) Includes 
6800 Linking Loader 

M99CX 1200.00 

CROSSGEN— A WOO OBJECT CODE DISASSEMBLER/SOURCE 
GENERATOR that runs on your M68Q9 development system Has all 
laalures ol M69RS (sea above) An invaluable tool for converting all 
those 6800 object filas over to the M6809 

M69CS J75.00 

All programs are relocatabte and come complete wiln Linking Loader. 
Programmers Guide and extensively commented assembly listing 
Available on 300 Baud cassette or mini. floppy disk. For disk, specify 
SSB or FLEX Source Taxt Inpul/oulput is TSCSSB editor/assembler 
compa table 



Dnfltr inqutnti v/tkom*. 



FLEX i. I rod. ma ik at TSC 



PO 



Ed Smith's SOFTWARE WORKS 

Box 339. Redondo Beaoh, CA 90277, (213) 373-3380 



CT-64 CT-1024 

* FAST! Average Screen Writing Speed: 19K 
baud 

* Memory Mapped VideoAdapterforyourCT-64 
or CT-1024. 

* Just plug it in and go. 

* The terminal works like normal until the 
supplied outputroutineis used, thenthe CT-64 
orCT-1 024 display worksat processorspeed. 

* TheJ.B.I.VideoBoardtakesl mainSS50slot. 

* Video Memory can be dip switch selected to 
any 1K memory slot. 

* Combinethe J.B.I. Video Boardwithourupand 
coming pseudo graphics adapter board and 
you put new life into the old CT-64. 

* The J.B.I. Video Board comes built and is 
jumper selectable for either the CT-64 or 
CT-1 024. 

* lfyourterminalisCT-1024weneedtoknowifit 
is a standard 32 characters per line: or has 
been modified for 64 characters per line. 

* SHIPPING NOW! 

The J.B.I. Video Board sells tor: 
$169.00 with your 21LC-2S 
$179.00 with our 21102'S 
(8-21 L02S are required) 

We have been a dealer for SWTPC since 1976. 

Johnson Micro Computer 

2607 E. Charleston 

Laa Vegas, Nevada 89104 
1-701-384-3354 

Mastercharge and Visa accepted 
Dealer inquiries Invited 
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Software Source Books 



TM 



Combining detailed descriptions with complete source listings, these 
books explain the internal operations and algorithms used in Hemenway 
Associate's popular systems software. 

How mucf) would such a complete software resource cost? If you've seen 
the PAPERBYTE books by Jack Hemenway and Robert Grappel you know how 
inexpensive they can be. And now you can have the companion volumes to the 
RA6800ML macro assembler and LINK08 linking loader books. 

Remember, these are not Just books: they are SoftwareSourceBooks 

complete Software resources! Order them today; VISA and MasterCharge 
accepted. 

TM 
CP/6fl OPERA-™ SYSTEM 

<$31.95> 



PIP Peripheral Interchange 

Program transfers data 

between physical devices 

Wildcard Filenames and Extensions 

Relocatable anywhere in 

Memory 

Extended Instruction set 

includes 6809-type instructions 

(PSHX, PULX, etc) 



Device-independent I/O 
Random and Sequential Files 
Fits in less than 8K 
Chaining and overlaying 
Single Supervisor Call 
furnishes all DOS services 
Easily interfaced to new 
devices and peripherals 
Dynamic file allocation 



STRUctured BAsic Language (STRUBAL* 
for both business and" scientifT 



(SH9.95) 



) COMPILER 

c U3e_3 



Variable precision from H to 

1iJ digits 

Structured Programming forms 

Produces Relocatable and 

linkable code 

COMMON and DUMMY sections 

XA68QQ Macro 



Runs on any M6800 
Full Macro facilities 
COMMON section for the 
production of ROMable code 
Conditional Assembly 



Extensibility 

String Handling 

Full scientific package 

Data structures with 

mixed data types 



tWRi 



Cross Assembler 



* Generates linkable and 
relocatable code 

* Sorted Symbol table listing 

* Hash-coded Symbol table 
for speed 



Hemenway Associates Inc. 101 Tremont St. Boston MA 02108 

Name Title Company 

Street City State Zip 

( ) Check enclosed in the amount of $ , 

(. ) Bill VISA ( ) Bill MasterCharge 

Card No Exp. Date 

Please send the following books: 



Add $0.75 per book to cover postage and handling 
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6809! 



INTRODUCING THE 
NEW STATE-OF-THE-ART 
IN MICROCOMPUTER 
SOFTWARE. 
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and MPU time, 
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ystem. The 

be done at a 
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A new BASIC09 
the best of 
popular high 
under OS-9 
unmatched by 
versions. An 
business, scientific 
computer users. We 



language system embracing 

BASIC, PASCAL and other 

level languages running 

with speed and utility 

other BASIC or PASCAL 

excellent choice for 

and/or personal 

feel this Is the 



most advanced BASIC 
microcomputer. 



aval table for any 



Call or write today for our 
tree catalog. 

MICROVV\RE 



5835 Grand Ave. • P.O. Box 4865 
Des Moines, IA 50304 • 515/279-8844 



'68' MICRO JOURNAL 

if The only ALL 6800 Computer Magazine. 
if More 6800 material than all the others com- 
bined: 

MAGAZINE COMPARISON 

(2 years) 

Monthly Averages 

6800 Articles 

TOTAL 
KB BYTE CC DOBB'S PAGES 

7.8 6.4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $5.88 

(Based on advertised 1-year subscription price) 

'68' cost per month: $1.21 

That's Right! Much, Much More 

for About 

1/5 the Cost! 

1-Year $14.50 2 Years $26.00 3Years$36.50 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge Q — VISA □ 

Card # Exp. Date 



For □ 1-Year Q 2 Years 

Enclosed: $ 



□ 3 Years 



Name 



Street. 
City 



State 



-Zip- 



My Computer Is: 



68 MICRO JOURNAL 

3018 Hamlll Road 

HIXSON, TN 37343 



Foreign surface add $9.50 per year. 
Foreign Air Mail add $29.00 per year. 




S^Mum^^ 




Life subscription S175.00 
NOTE: CANADA & MEXICO ADO $4.50 per year surface. 
New subscriptions require 6-8 weeks processing. 



46 



'66' Micro Journa I 






NOW INDUSTRIAL QUALITY AT LOW COST 

FROM THOMAS INSTRUMENTATION 



Industrial system boards are now available separately for OEM, prototyping or hobbyist applications. 
Shipped from stock, these are the same quality cards used in monitors and machine tool controls 
designed for GM , LTI, and General Electric. All cards are SS-50 buss compatible and are suitable tor 
dedicated applications. The CPU card and the Video RAM Card may be combined on a Tl backplane 
as a stand-alone micro — ideal for prototypes or hobbyists. ATTENTION OEM's: If you have a control 
data acquisition, monitoring, or other microprocessor application. Check with Tl for more information 
about custom software design for the T I CPU or any other 6800 series system. Tl also has non-SS-50 
buss single board 6800 systems. 



SS-50 SUPER CPU 

• SS-50 or stand alone computer 

• 1K of RAM at SA000 I/O on board at $A400 (Relocatable) 

• 2K Monitor (Mikbug compatible) in 2708 EPROM 

• 2 8 bit parallel ports with 2 control bits and power 

• RS-232 ACIA port, 2nd TTL ACIA optional 

• 3 16 bit counter/timers (expandable to 6 add 2nd 6840) 

• 128 byte RAM at 0000 is jumper selectable 

• Battery back-up for 32 bytes of RAM 

• Plug back to back with Video RAM for Stand alone micro or 
customized smart terminal 

ASSEMBLED $195.00 
CARD AND DOCUMENTATION $49.00 




SS-50 VIDEO RAM «fc*'8 i • 1 [\ LIU f I 

• Fully synchronous operation — No jitter 

• 7 by 9 Characters Programmable reverse video 

• Full 128 Character ASCII set «w ■«* » ' w tw «w 

• 1K of memory can be mapped to any 1K boundary MBIMMl «i mi 

• Full documentation includes software (Replaces OUTEE) H'eH * * 
ASSEMBLED $149 00 Inr** 

CARD, CRYSTAL and DOCUMENTATION $39.00 

Tl SS-50 Wire-Wrap Card 24.00 

Tl SS-50 Parallel I/O Card 95.00 

Card only 35.00 

GIMIX 16K Static RAM w/Soft addressing 368.00 

GIMIX 16 RAM without Soft addressing 296.00 

3, 4, 7 SLOT Backplanes (per slot) 4.00 

Tl cards available from stock 

THOMAS 
.NSTRUMENTATION n£ALERS p0R 

168-8th Street, Avalon, N.J. 08202 

Phone (609) 9674280 GIMIX SWTPC SSB 

VISA 



CALL FOR DEALER, OEM. AND QUANTITY PRICES 
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COMPUTERWARE 

is serious about 

6800/6809 



System Software 

Random BASIC 

BASREF (cross-reference) 

RENBAS (renumbering) 

MONITOR 

DOS/Utilities 

XREF (cross-reference) 

Editor 

Assembler 



Application Software 

Payroll 

Accounts Payable 
Accounts Receivable 
Inventory Control 
Ledger Accounting 
Mailing System 
Medical Office 
Word Processing 
Random Data Organizer 



All available for both 6800 and 6809 
Applications for home, small business, & commercial users. 



And we have the hardware too! 



Smoke Signal Broadcasting • SWTPC • Centronics • SOROC 
Anadex • NEC • Micro Works • Thomas • Newtech • Sanyo 



Write, Call or Come See Us at: 



COMPUTERWARE 

1512 Encinitas Blvd. Box 668 

Encinitas, CA 92024 

(714)436-3512 
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THE source 

• f^^W ONTHE 

VJ^^ 6809 

IMMEDIATE DELIVERY FOR SWTPC USERS, 8" or 5%" DISKETTE 
SMOKE SIGNAL BROADCASTING USERS, INQUIRE 

CSI-1 Operating Systems, PASCAL Compiler, Screen Editor, Filer, 

Linker, Library, Setup, Binder, Interpreter, BIOS $250.00 

CSI-2 BASIC Compiler, YALOE, (Line-editor for hard-copy terminals), 

Patch, Disassembler, Calculator $100.00 

CSI-3 MACRO Assemblers for 6809, 6800 and other Microprocessors . .$100.00 

ALL THREE DISKS and MANUAL (SYSTEM) $419.00 

FREE! UCSD PASCAL USER'S MANUAL PLUS SWTPC 
IMPLEMENTATION NOTES WITH PURCHASE OF CSM 

68000 Coming, Summer, 1980 
68000 Assembler, Spring, 1980 

OEM and DEALER INQUIRIES INVITED 




CONTROL SYSTEMS, iNC. 



MICROSYSTEMS DIVISION 



1317 CENTRAL AVE 



KANSAS CITY, KANSAS 66102 



CALL TOLL-FREE (800) 255-4411 

Continental U.S.A. Only 
(Kansas Residents call 913/371-6136) 



r ,^^><^^ 


V/SA' 


[master charge 


>iWir. 


■ 



"UCSD Pascal" is a registered trademark of The Regents of The University of California 
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6809 PROCESSING POWER! 

The Percom SBC/9 . Only $199.95. 




Fully compatible with 
requmngno modilicaiL 
board, memory a> I/O".9fors- — -tb 
SBC/9' is also a complete, single- 
board control conlputer with its own 
ROM operatingT"sysrem.--RA 
peripheral ports and a full-range baud 
Clock generator 



Make the SBC 9 the heart of your computer and put to work 
the most outstanding microprocessor available, the 6809. 



th« Mighty 6809 

Featunng more addressing modes 
than any other eight-bit processor, 
position-independent coding, special 
16 bit instructions, efficient argu- 
ment-passing calls, autoincrement/ 
autodecrement and more, it's no won- 
der the 6809 has been called the pro- 
grammers dream machine " 

Moreover with the 6809 you get a 
microprocessor whose programs typ- 
ically use only one-hall to two-thirds as 
much RAM space as required for 6800 
systems, and run lasler besides 

And to complement the extraordi- 
nary 6809 the Percom design team 
has developed PSYMON", an extraor- 
dinary 6809 operating system tor the 
SBC/9' 
PSYMON'— Percom SYstem MONItor 

Although PSYMON" includes a lull 
complement of operating system 
commands and 15 externally callable 
-trademark of Percom Data Company, Inc. 



utilities what really seis PSYMON ' 
apart is its easy Hardware adaptability 
and command extensibility 

For hardware interfacing you 
merely use simple, specific device 
driver routines that reference a table ot 
parameters called a Device Control 
Block (DCB) Usng this technique, in- 
terfacing routines are independent of 
the operating system 

The basic PSYMON' command 
repertoire may be readily enhanced or 
modified When PSYMON' lirst re- 
ceives system control, it initializes lis 
RAM area configures its console and 
then looks ahead' lor an optional sec- 
ond ROM which you install in a socket 
provided on the SBC/9* card This 
ROM contains your own routines that 
may alter PSYMON' pointers and 
etiner subtly or radically modMy the 
PSYMON' command set It a second 
ROM is not installed control returns 
immediately to PSYMON' 



Provision for multi-address, 8-bit bidirec- 
tional parallel I/O data lines lor interfac- 
ing to devices such as an encoded 
keyboard, 

A senal interface Reader Control oulpul 
for a cassette, tape punch/reader or simi- 
lar device 

An intelligent data bus. multi-level data 
bus decoding trial allows multiprocess- 
ing and bus multiplexing ol other bus 
masters 

Extended address line capability — ac- 
commodating up to 16 megabytes ol 
memory — thai does not disable the on- 
board baud rate clock or require addi- 
tional hardware in I/O Slots 
On-board devices which are Cully de- 
coded so that otf-card devices may use 
adfoming memwy space 
Fully buttered address, control and data 
lines 



I he BBC/9* complete W i!h MSJVMON'in 
ROM, t K of RAM and a comprehensive 
users manual 'costs |usl Si 99 95 



I PEFGOM 




PERCDW DATA COMPAN' INC 

>< KAflv OAHUWJC IE»A5 ?S04? 

Percom peripherals lor petsonil computing' 



To place an order or request additional literature 
call toll-Ire* 1-80O-527-1598. For technical infor- 
mation cell (214)272-3421 Orders may be paid by 
check, money order. COD or charged to 3 VISA or 
Master Charge account Texas residents must add 
5% sales tax 

mioi* wo axc»iuTo<> suuc ro chwui without morci 



